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•ABSTRACT 


A  complete  description  of  the  Boundary  Layer  Integral  Matrix  Procedure  (BLIMP) 
computer  code  is  given,  including  descriptions  and  explanations  of  the  program 
input  preparation,  interpretation  of  output,  special  output  for  debugging  pur¬ 
poses,  and  a  list  and  definitions  of  the  Fortran  variables.  Three  sample  prob¬ 
lems  are  included,  ranging  in  complexity  from  air  flow  over  a  flat  plate  to  air 
flow  over  an  ablating  reentry  vehicle  nosetip  and:  heat  shield  composed  of  thne 
different  surface  materials.  A  section  on  changing  program  dimensions  is  also 
included. 
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SECTION  I 
INTRODUCTION 

*  This  report,  contains  a  description  of  the  Boundary  Layer  Integral  Matrix 
Procedure  (BLIMP)  Fortran  V  computer  program  and  instructions  for  using  the  pro- 

.  gram;  The'  BLIMP  program  solves,  the  laminar  or  turbulent,  nonsimilar,  multicom¬ 

ponent,  equilibrium  boundary  layer  for  axisymmetric  or  planar  bodies  and  for  gen¬ 
eral  chemical  systems.  The  theoretical  development  and  computational  procedures 
which  form  the  basis  for  this  computer  program  are  discussed  in  reference  1. 

The  present  report  is  a  revised  version  of  reference  2,  which  detailed  the  use 
of  an  earlier  version  of  the  program.  The  publication  of  this  new  User's  Manual 
was  prompted  by  several  improvements  in  the  BLIMP  code,,  the  most  notable  of  which 
is  the  addition  pf  a  model  for  -the  analysis  of  turbulent  flows.  This  turbulent 
model  is  discussed  in  detail  in  reference  1. 

A  summary  of  the  types  of  problems  which  can  be  treated  is  presented  in 
Section  II.  A  comprehensive  set  of  input  instructions  is  presented  in  Section 
III  which  includes  descriptions  of  the  various  options  which  are  available  to  the 

*  user.  The  standard  output  format  is  described  in  Section  IV.  Input  and  output 
for  several  sample  cases  are  presented  in  Section  V.  Potential  problem  areas 
and  a  description  of  special  debug  output  which  can  be  obtained  are  presented  in 
Section  VI.,  Operating  procedures  for  a  CDC  6600  computer  system  are  presented 
in  Section  VII,  and  instructions  .for  changing  program  dimensions  are  included  in 
Section  VIII.  Fortran  variables  and  definitions  are  given  in  Section  IX. 
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SECTION  II 
PROBLEM  DESCRIPTION 

The  BLIMP  program  uses  a  strip-integral  numerical  procedure  to  solve,  with 
as  much  accuracy  as  desired,  a  comprehensive  set  of  equations  describing;  fluid 
flow  in  a  boundary  layer  (reference  1) .  The  equations  apply  to  general,  ionized 
chemical  systems  in  local  chemical  equilibrium  (reference  3).  Unequal  diffusion 
and  thermal  diffusion  coefficients  for  each  species  can  be  considered  through 
the  use  of  convenient  approximations  for  these  coefficients  described  in  refer¬ 
ence  4.  Relations  of  the  Sutherland-Wassiljewa  type  are  used  for  mixture  molec¬ 
ular  viscosity  and  conductivity. 

For  turbulent  flows,  the  time-averaged  equations  of  motion  are  solved 
utilizing  an  eddy  viscosity  model  to.  describe  the  "Reynolds  stress"  term,  plus 
constant  turbulent  Prandtl  and  Schmidt  numbers  in  the  energy  and  species  conser¬ 
vation  equations.  Eddy  viscosity  is  related  to  a  variable  mixing  length  in  the 
region,  very  near  the  wall,  and  to  global  parameters  of  the  flow  in  the  outer  por¬ 
tion  of  the  boundary  layer.  Turbulent  transport  terms  in  the  equations  of  motion 
are  considered  only  after  the  .transition  criterion,  an  input  transition  Reynolds 
number  on  momentum  thickness,  has  been  satisfied. 

The  procedure  applies  to  arbitrary  planar  or  axisymmetric,  blunt  or  sharp 
body  geometries .  Transverse  curvature  may-  be  .considered  for  axisymmetric  bodies.. 
The  boundary- layer  edge  gas  must  be  adiabatic1  but  it  may.be  nonisentropic.  With 
regard  to  boundary  layer  edge  conditions,  it  is  necessary  for  the  user  to  supply 
only  composition  of  the  edge  gas,  stagnation  enthalpy  and  pressure,  and  distri¬ 
butions  of  pressure,  entropy  (if  nonisentropic)  and  incident  radiation  flux 
around  the  body.  The  incident  radiation  is  not  attenuated  in  the  boundary  layer 
but  enters  directly  into  the  wall  energy  balance  (when  one  is  performed) . 

At  the  wall  it  is  possible  to  assign  temperature  and  mass  fluxes  of  vari¬ 
ous  component  gas  mixtures  defined  by  the  user,  to  require  the  surface  to  be  in 
equilibrium  with  whatever  condensed  species  is  predicted  by  the  program  to  be 
the  surface  species,  to  permit  rate-controlled  surface  reactions  specified  by  the 
user,  and  to  perform  a  steady  state  energy  balance  at  the  wall'  (in  which  case  the 
boundary  layer  is  completely  coupled  to  the  wall  response) .  A  candidate  surface 
species  can  be  considered  to  be  removed  mechanically  in  the  event  it  wants  to 
appear  as  the  surface  above  a  "fail  temperature"  prescribed  by  the  user  (e.g., 
the  fail  temperature  for  silica  might  be  selected  as  its  melt  temperature) .  Such 
boundary  conditions  as  mass  addition,  ablation  material,  and  body  shape  can  be 
varied  discontinuously  around  the  body,  and  the  type  of  wall  boundary  condition 
can  be  altered  in  different  regions  over  the  body. 
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SECTION  III 
INPUT 

The  BLIMP  program, uses  punched  cards  as  the  input  media.  Formatted  read 
statements  are  used  throughout.  A  comprehensive  set  of  input  instructions  com¬ 
prises  the  bulk  of  this  section.  Input  data  for  several  sample  problems  are  pre¬ 
sented  in  Section  V. 

The  input  instructions  presented  herein  are  annotated  by  discussions  of 
program  options,  appropriate  units,  procedures  for  avoiding,  convergence  problems 
and  other  information  to  help  the  user  in  his  decision  making  and  to  present  to 
him  the  full  potential  of  the  program.  Unfortunately,  this  has  the  effect  of 
making  the  input  appear  much  more  complex  than  it  really  is.  Actually,,  the  BLIMP 
program  is  quite  simple  and  straightforward  to  use  considering  the  complexity  of 
the  problems  which  it  can  treat  and  the  large  number  of  options  it  contains.  It 
is  recommended  that  the  user  review  the  entire  set  of  instructions  each  time  he 
formulates  a  problem  for  at  least  the  first  several  dozen  submittals.  After 
this,  it  may  be  convenient  for  the  user  to  prepare  his  own  abbreviated  set  of 
user  instructions  for  those  options  of  primary  interest  to  him. 
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GROUP  1  CONTROL  CARD*  TITLE*  AND  IDENTIFICATION  (CALLED  FROM  RECASE) 


CARD  1 ♦ FORMAT (20 I i • 15A4) *KR 

FIELD  1  (COLUMNS  1-20)  THIS  IS  THE  VARIABLE  KR < D I MENS I ONED  20)  WHICH  IS 

USED  TO  CONTROL  THE  VARIOUS  PROGRAM  OPTIONS 

COLUMN  1  DETERMINES  WHETHER  A  NEW  SET  OF  ETA  VALUES  IS  TO  BE  INPUT  FOR 
PRESENT  CASE  (SEE  GROUP  4) 

0  USES  RESIDENT  VALUES  FROM  PREVIOUS  CASE 

1  VALUES  INPUT  BY  USER  (MANDATORY  FOR  FIRST  CASE) 

COLUMN  2  DESIGNATES  TYPE  OF  FIRST  GUESSES  TO  BE  UTILIZED  FOR  PRIMARY 
VARIABLES  (SEE  GROUP  9) 

0  USES  BUILT-IN  RELATIONS  TO  CALCULATE  FIRST  GUESSES  (REQUIRES 
READING  ONLY  GUESS, FOR  ENTHALPY  OF  THE  GAS  AT  THE  WALL). 

RECOMMENDED  FOR  MOST  SITUATIONS. 

1  FIRST  GUESSES  INPUT  BY  USER 

2  USES  RESIDENT  VALUES  FROM  PREVIOUS  CASE  (CANNOT  BE  USED  FOR  FIRST 
CASE  OR  WHEN  COMPOSITION  OF  EDGE  GAS  IS  DIFFERENT  FROM  PREVIOUS 
CASE) 

3  FIRST  GUESSES  INPUT  BY  USER  ARE  ACCEPTED  AS*  SOLUTION  AT  FIRST  TIME 
AND  FIRST  OR  SUBSEQUENT  (FOR  RESTART)  STATION. 

COLUMN  3  DETERMINES  TREATMENT  OF  STREAMWISE  DERIVATIVES. 

SEE  REFERENCE  l*  SECTION  III  FOR  EXPLANATION  OF 
DIFFERENCE  RELATIONS. 

0  PERFORMS  SIMILAR  SOLUTION  AT  EACH  STREAMWISE  STATION 

1  CONSIDERS  TWO-POINT  DIFFERENCE  RELATIONS  AT  ALL  STATIONS  WITH  THE 
FOLLOWING  EXCEPTIONS  (A  SIMILAR  SOLUTION  IS  PERFORMED  AT  THE  FIRST 
STATION  FOR  NON-BLUNT  BODIES  AND  AT  THE  FIRST  TWO  STATIONS  FOR 
BLUNT  BODIES) 

2  CONSIDERS  THREE  POINT  DIFFERENCE  RELATIONS  AT  ALL  STATIONS  WITH  THE 
FOLLOWING  EXCEPTIONS  (A  SIMILAR  SOLUTION  IS  PERFORMED  AT  THE  FIRST 
STATION  AND  A  TWO-POINT  SOLUTION  IS  PERFORMED  AT  THE  SECOND  STATION 
FOR  NON-BLUNT  BODIES*  SIMILAR  SOLUTIONS  ARE  PERFORMED  AT  THE  FIRST 
ANO  SECOND  STATIONS  ANO  A  TWO-POINT  SOLUTION  IS  PERFORMED  AT  THE 
THIRD  STATION  FOR  BLUNT  BODIES*  AND  A  TWO-POINT  SOLUTION  IS 
PERFORMED  FOR  THE  FIRST  STATION  AFTER  A  DISCONTINUITY  -  SEE  CARD 
SET  4  OF  GROUP  3) 
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COLUMN  4  DETERMINES  WHEN  OUTPUT  BLOCK  IS  TO  BE  PRINTED 

0  OUTPUT  BLOCK  PRINTED  FOR  CONVERGED  SOLUTION  OR  FOR  NONCONVERGED 
SOLUTION  AFTER  50  ITERATIONS  (WITH  APPROPRIATE  COMMENT) 

1  OUTPUT  BLOCK  PRINTED  AFTER  EACH  ITERATION 
COLUMN  5  DETERMINES  TREATMENT  OF  ENTROPY  LAYER 

0  NOT  USED 

1  NOT  USED 

2  NOT  USED 

3  NOT  USED 

4  AN  ISENTROPIC  EXPANSION  AROUND  THE  BODY  IS  PERFORMED  (IN  THE  CASE 
OF  A  BLUNT  BODY#  THE  ENTROPY  CORRESPONDS  TO  THAT  BEHIND  A  NORMAL 
SHOCK) 

5  A  NONISENTROPXC  EXPANSION  AROUND  THE  BODY  IS  PERFORMED#  THE  USER 
SUPPLYING  ENTROPY  CHANGES  BETWEEN  STREAMWISE  STATIONS  (THIS  IS  A 
ZEROTH  APPROXIMATION  TO  AN  ENTROPY  LAYER#  THE  VELOCITY  GRADIENT 
AT  THE  BOUNDARY  LAYER  EOGE  BEING  NEGLECTED  -  SEE  CARD  SET  1  AND 
CARD  2  OF  GROUP  15) »  KR(7)=0  OR  2  ONLY. 

COLUMN  6  DESIGNATES  BODY  SHAPE  (IN  THE  CASE  OF  AXISYMMETRIC  SHARP 

BODIES  AND  AXISYMMETRIC  AND  PLANAR  BLUNT  BODIES#  A  TRANSFOR¬ 
MATION  OF  STREAMWISE  DISTANCE#  S»  TO  S**3#  S**4»  AND  S**2» 
RESPECTIVELY#  IS  UTILIZED  TO  PERFORM  STREAMWISE  INTEGRATIONS 
IN  OROER  TO  TAKE  ADVANTAGE  OF  THE  WAY  THAT  EDGE  VELOCITY  AND 
LOCAL  BODY  RADIUS  VARY  WITH  S  IN  THE  VICINITY  OF  THE  TIP  OR 
STAGNATION  REGION#  THEREFORE#  A  4  OR  9  IN  COL*  6  IS  REQUIRED 
IF  THE  SOLUTION  DOES  NOT  START  FROM  A  SHARP  TIP  OR  STAGNATION 
POINT.  FURTHERMORE#  IN  THE  CASE  OF  SHARP  OR  BLUNT  BODIES#  A 
DISCONTINUITY  INTRODUCED  AT  A  DOWNSTREAM  STATION  REVERTS  TO 
INTEGRATION  WITH  RESPECT  TO  S  STARTING  AT  THAT  STATION.  XT  IS 
RECOMMENDED  THAT  THIS  BE  DONE  AFTER  AN  APPRECIABLE  CHANGE  OF 
SURFACE  INCLINATION  WITH  RESPECT  TO  THE  FREE-STREAM  VELOCITY 
FROM  THAT  AT  THE  TIP  OR  STAGNATION  POINT.  THE  OPTIMUM  SWITCH¬ 
OVER  POINT  DEPENDS  ON  THE  SPECIFIC  BODY  SHAPE.  IT  IS  LEFT  TO 
THE  USER  TO  ESTABLISH  THIS  FOR  THE  BODY  SHAPE  OF  INTEREST. 

THE  METHOD  FOR  IMPLEMENTING  A  DISCONTINUITY  IS  DISCUSSED 
UNDER  CARD  SET  4  OF  GROUP  3). 

0  AXISYMMETRIC  BLUNT  BODY 

1  PLANAR  BLUNT  BODY 

2  AXISYMMETRIC  SHARP  BODY 

3  PLANAR  SHARP  BODY 
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4  AXISYMMETRIC  OR  PLANAR  SHAPE  WHICH  HAS  NO  SHARP  TIP  OR  BLUNT  STAG¬ 
NATION  POINT*  FOR  EXAMPLE*  A  NOZZLE 

5  AXISYMMETRIC  BLUNT  BODY  WITH  TRANSVERSE  CURVATURE 

6  NOT  USED 

7  AXISYMMETRIC  SHARP  BODY  WITH  TRANSVERSE  CURVATURE 

8  AXISYMMETRIC  SHAPE  WITH  INTERNAL  FLOW  AND  TRANSVERSE  CURVATURE 

9  EXTERNAL  FLOW  OVER  AXISYMMETRIC  SHAPE  WHICH  HAS  NO  SHARP  TIP  OR 
BLUNT  STAGNATION  POINT  AND  WITH  TRANSVERSE  CURVATURE 

COLUMN  7  DESIGNATES  WHETHER  OR  NOT  TURBULENT  FLOW  WILL  BE  CONSIDERED. 

0  LAMINAR  FLOW  ONLY 

1  NOT  USED  IN  PRESENT  VERSION  OF  PROGRAM 

2  TURBULENT,  FLOW  WILL  BE  COMPUTED  -IF  TRANSITION  CRITERIA  IS  EXCEEDED 
(SEE  GROUP  8). 

COLUMN  8  DESIGNATES  FORM* IN  WHICH  WALL  MASS  FLUXES  ARE  INPUT.  (KR(8> 
IS  NOT  UTILIZED  IF  WALL  FLUXES  ARE  NOT  INPUT.  THE  FLUX 
NORMALIZING  PARAMETER  IS  NOT  GENERALLY  KNOWN  IN  ADVANCE  SO 
KR(8)=0  IS  NORMALLY  USED  WHEN  FLUXES  ARE  INPUT).  UTILIZED  IN 
CARD  SETS  7  AND  11  IN  GROUPS  16*  17#  18*  ... 

0  WALL  FLUXES  INPUT  IN  LBS/SEC  FT**2 

l  WALL  FLUXES  INPUT  IN  NORMALIZED  FORM  (I.E.»  DIVIDED  BY  -ALPHASTAR* 
SEE  EQUATION  OF  NASA  CR-1062) 

COLUMN  9  TOGETHER  WITH  COLUMN  11*  THIS  SPECIFIES  THE  TYPE  OF  WALL 
BOUNDARY  CONDITIONS.  THE  USER  IS  URGED  TO  FAMILIARIZE 
HIMSELF  WITH  THE  DISCUSSION  IN  APPENDIX  I  BEFORE  CHOOSING 
THESE  OPTIONS, 

0  NOT  GENERALLY  USED.  ASSIGNED  ELEMENTAL  MASS  FRACTIONS  AND 
STREAM  FUNCTION  AT  THE  WALL  (REQUIRES  KR(ll)  =  0  OR  1). 

1  NOT  GENERALLY  USED.  ASSIGNED  ELEMENTAL  MASS  FRACTIONS  AND  TOTAL 
MASS  FLUX  AT  THE  WALL  (REQUIRES  KR(ll>  =  0  OR  l), 

2  ASSIGNED  COMPONENT  MASS  FLUXES  AT  THE  WALL  (MOOT  EDGE  GAS*  MOOT 
PYROLYSIS  GAS*  MOOT  CHAR—  REQUIRES  KR(ll)  =  0*  1*  OR  2). 

3  NOT  USED 

4  WALL  STEADY  STATE  ENERGY  BALANCE  WHILE  SATISFYING  WALL  MASS 
BALANCES  AND  LIMITED  SURFACE  EQUILIBRIUM  (USE  KR(1D  =  0* 

KR(7)  s  0  OR  2. 


-6- 


AFWL-TR-69-114,  vol .  I 


COLUMN  10  DETERMINES  TYPE  OF  CURVE  FITS  EMPLOYED  TO  REPRESENT  THE 
PRIMARY  VARIABLES  OF  VELOCITY  RATIO*  TOTAL  ENTHALPY*  AND 
ELEMENTAL  MASS  FRACTIONS  (KR<10)=0  IS  RECOMMENDED  FOR  ACCU¬ 
RACY  FOR  MOST  PROBLEMS*  HOWEVER*  KR(10)=1  IS  BETTER  FOR 
SEVERE  PROBLEMS  (E.G.*  NEARLY  BLOWN  OFF  BOUNDARY  LAYERS)  FOR 
WHICH  CUBICS  CAN  BECOME  POORLY  BEHAVED) 

0  UTILIZES  CONNECTED  CUBICS 

1  UTILIZES  CONNECTED  QUADRATICS  EXCEPT  FOR  OUTERMOST  SEGMENT  WHERE 
CONNECTED  CUBICS  ARE  EMPLOYED' 

2  UTILIZES  CONNECTED  QUADRATICS  EVERYWHERE. 

3  SAME  AS  2  BUT  DEMANDS  ZERO  VELOCITY  6RADIENT  AT  THE  OUTER  ED6E  OF 
THE  BOUNDARY  LAYER  (OVERRIDES  THE  ALPHA  CONSTRAINT  -  SEE  GROUP  4* 
CARD  3). 

COLUMN  11  TOGETHER  WITH  COLUMN  9*  THIS  DESIGNATES  THE  TYPE  OF  WALL 
BOUNDARY  CONDITION  (SEE  APPENDIX  IT.  SEE  GROUPS  16*  IT* 

18*  *♦• 

0  ASSIGNED  WALL  TEMPERATURE.  ALSO  USED  WITH  KR(9)=4.  THIS  OPTION 
TOGETHER  WITH  KR(9)s2  WILL  YIELD  SURFACE  EQUILIBRIUM  OR  KINETIC 
SURFACE  SOLUTION  IF  THE  ASSIGNED  TEMPERATURE  IS  GREATER  THAN  THE 
ASSIGNED  ABLATION  TEMPERATURE  (SEE  GROUP  11*  CARD  1*  FIELD  7), 

THE  PROGRAM  WILL  CALCULATE  THE  APPROPRIATE  CHAR  FLUX*  ASSIGNED 
CHAR  FLUX  SHOULD  BE  SET  TO  ZERO  (SEE  GROUP  16*  CARD  SEt  11). 

1  ASSIGNED  WALL  ENTHALPY. 

2  SURFACE  EQUILIBRIUM  WITH  ASSIGNED  COMPONENT  MASS  FLUXES  (RE¬ 
QUIRES  KR(9)  s  2),  THE  PROBLEM  IS  WELL-POSED  AND  WILL  CONVERGE 
ONLY  IF  THERE  EXISTS  A  TEMPERATURE  ABOVE  250K  GIVING  SURFACE 
EQUILIBRIUM  FOR  THE  ASSIGNED  COMPONENT  MASS  FLUXES.  USE  WITH 
CAUTION  FOR  ANALYSES  OF  MATERIALS  WITH  PLATEAU-LIKE  BEHAVIOR. 

3  CABLE  SOLUTIONS  ONLY.  ASSIGNED  WALL  TEMPERATURE. 

4  CABLE  SOLUTIONS  ONLY.  SURFACE  EQUILIBRIUM. 


COLUMN  12  DETERMINES  WHETHER  OR  NOT  NEW  DATA  FOR  THERMODYNAMIC  AND 
TRANSPORT  PROPERTIES  ARE  TO  BE  USED  AND  WHETHER  OR  NOT 
SURFACE  KINETIC  DATA  ARE  TO  BE  CONSIDERED  (SEE  GROUPS  11* 
12*13*  AND  14).  APPLIES  ONLY  FOR  KR(7)sO  OR  2 i  (KR(12>  MUST 
BE  0*  2*  5*  OR  7  FOR  FIRST  CASE).  IN  THE  FOLLOWING*  X=5 
FOR  KINETIC  DATA  AND  X=0  FOR  NO  KINETIC  DATA. 

X  USER  INPUTS  NEW  DATA  FOR  ELEMENTS  AND  MOLECULAR*  ATOMIC*  AND 
IONIC  SPECIES.  THERMOCHEMICAL  DATA  NOT  PRINTED  IN  OUTPUT. 
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1+X  USES  RESIDENT  ELEMENTAL  AND  SPECIES  DATA. 

2+X  SAME  AS  KR(12)=X  EXCEPT  THERMOCHEMICAL  DATA  ARE  PRINTED  IN, 
OUTPUT.  (WHEN  X=5  KINETIC  DATA  ALWAYS  PRINTED  IN  OUTPUT). 

COLUMN  13  PERMITS  THE  ASSIGNMENT  OF  A  CONVERGENCE  DAMPING  FACTOR  (THIS 
IS  OVERRIDDEN  IF  A  SMALLER  DAMPING  FACTOR  IS  COMPUTED  INTER¬ 
NALLY  BY  SOME  CONSTRAINT) 

it 

0  NO  DAMPING  FACTOR  IS  ASSIGNED 

J  IF  Jf IS  GREATER  THAN  ZERO#  CORRECTIONS  ARE  DAMPED  UNIFORMLY  BY  J/10 
THIS,  PROCEDURE  IS  NOT  RECOMMENDED  AS  IT  IS  VERY  INEFFICIENT  AND  THE 
DAMPING  'COMPUTED  BY  THE  PROGRAM  IS  USUALLY  ADEQUATE 

COLUMN  14  DETERMINES  MODEL  TO  BE  EMPLOYED  FOR  MULTICOMPONENT  TRANSPORT 
PROPERTIES.  APPLIES  ONLY  FOR  KR<7>  =  0  OR  2.  CONSIDERING 
UNEQUAL  DIFFUSION  COEFFICIENTS  CAN  SUBSTANTIALLY  INCREASE  THE 
NUMBER  OF  ITERATIONS  (AND  SOMETIMES  CONVERGENCE  DOES  NOT 
OCCUR  IN  THE  ALLOWED  NUMBER  OF  ITERATIONS)  DUE  TO  THE  USE  OF 
INEXACT  DERIVATIVES  IN  THE  NEWTON-RAPHSON  ITERATION  PROCEDURE 

0  CONSIDERS  UNEQUAL  DIFFUSION  AND  THERMAL  DIFFUSION  COEFFICIENTS  FOR 
ALL  SPECIES 

1  CONSIDERS  UNEQUAL  DIFFUSION  COEFFICIENTS  FOR  ALL  SPECIES  BUT 
NEGLECTS  THERMAL  DIFFUSION 

2  CONSIDERS  , EQUAL  DIFFUSION  COEFFICIENTS  AND  NEGLECTS  THERMAL 
DIFFUSION 

COLUMN  15  NON-ZERO  ENTRY  PROVIDES  DEBUG  OUTPUT  FOR  FIRST  GUESSES  AND 
LINEAR  MATRICES  (SEE  DEBUG  INSTRUCTIONS  FOR  MORE  DETAILED 
INFORMATION  ON  COLUMNS  15  THROUGH  20) 

0  NO  DEBUG 

IS  FIRST  GUESSES  ARE  DUMPED 

2  LINEAR  MATRICES  BEFORE  AND  AFTER  INVERSION  ARE  ALSO  DUMPED 

COLUMN  16  NON-ZERO  ENTRY  PROVIDES  DEBUG  OUTPUT  FOR  WALL  FLUXES  AND 

SURFACE  EQUILIBRIUM  ITERATION  (SOME  OF  THE  TESTS  ARE  ACTUALLY 
MADE  ON  KR(7) »  SEE  DEBUG  INSTRUCTIONS) 


0  NO  DEBUG 

X  FOR  X  GREATER  THAN  ZERO#  THE  DERIVATIVES  OF  WALL  ENERGY  AND  MASS 
FLUXES  WITH  RESPECT  TO  REDUCED  NONLINEAR  VARIABLES  (DQJRNL) ♦  AND 
THE  ASSOCIATED  ERRORS  (WALLQJ  AND  DELQJW)  ARE  DUMPED.  ALSO#  THE 
MATRIX  OF  WALL  RELATIONS  BEFORE  AND  AFTER  MATRIX  INVERSION  IS 
DUMPED  FOR  KR(ll)=2  PROBLEMS. 
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Y  FOR  Y  GREATER  THAN  UNITY#  SURFACE  EQUILIBRIUM  ITERATION  INFORMATION 
IS  ALSO  DUMPED  (AS  IN  KR<18))  ANO  IF  KR(17)  IS  GREATER  THAN  ZERO# 
THE  DERIVATIVES  OF  MALL  ENERGY  AND  MASS  FLUXES  WITH  RESPECT  TO  ALL 
NONLINEAR  VARIABLES  (OQJNL)  ARE.  ALSO  DUMPED# 


COLUMN  17  NON-ZERO  ENTRY  PROVIDES  OEBUG  OUTPUT  FOR  COEFFICIENTS  IN  NON¬ 
LINEAR  EQUATIONS  AND  FOR  STREAMWISE  DERIVATIVES 

0  NO  DEBUG 

X  FOR  X  GREATER  THAN  ZERO#  STREAMWISE  DERIVATIVE  INFORMATION  IS 
DUMPED# 

Y  FOR  (Y+l-ITS)  GREATER  THAN  ZERO#  WHERE  ITS  IS  THE  NUMBER  OF  THE 
CURRENT  BOUNDARY  LAYER  ITERATION#  THE  COEFFICIENTS  WHICH  COMBINE  TO 
MAKE  UP  THE  NONLINEAR  EQUATIONS  (COEEQV  ARRAY)  ANO  CERTAIN  LINEAR 
AND  NONLINEAR  ERROR  INFORMATION  ARE  DUMPED  AND  THE  DERIVATIVES  OF 
THE  NONLINEAR  EQUATIONS  WITH  RESPECT  TO  THE  NONLINEAR  VARIABLES 
(AM  ARRAY)  ARE  DUMPED  BEFORE  AND  AFTER  INVERSION# 


COLUMN  18  NON-ZERO  ENTRY  PROVIDES  DEBUG  OUTPUT  FOR  CHEMISTRY  ITERATION 
(KR(7)  s  0  OR  2  ONLY).  (THE  TESTS  ARE  ACTUALLY  MADE  ON 
KR<7).  SEE  0EBU6  INSTRUCTIONS) i 

0  NO  DEBUG 

1  DUMPS  CHEMISTRY  ITERATIONS  IN-DETAIL  FOR  ITS  GREATER  THAN  45  WHERE 
ITS  IS  THE  COUNTER  ON  CHEMISTRY  ITERATIONS 

2  DUMPS  ONE  LINE  PER  ITERATION  DURING  EACH  CHEMISTRY  ITERATION 

Y  FOR  Y  OF  3  THROUGH  6#  DUMPS  CHEMISTRY  ITERATIONS  IN  DETAIL  WHEN 
<5*<Y-2)-ITS)  IS  GREATER  THAN  ZERO. 

X  FOR  X  OF  7  THROUGH  9#  DUMPS  CHEMISTRY  ITERATIONS  IN  DETAIL  WHEN  ITS 
IS  GREATER  THAN  10X-50# 


COLUMN  19  NON-ZERO  ENTRY  PROVIDES  DEBUG  OUTPUT  FOR  LINEAR  ANO  NONLINEAR 
ERRORS 

0  NO  DEBUG 

1  DUMPS  (FOR  EACH  ITERATION)  THE  FOLLOWING.  ERRORS  FOR  NONLINEAR 
MOMENTUM  (FNLE) »  ENERGY  (GNLE) #  AND  SPECIES  (SPNLE)  EQUATIONS# 
ERRORS  (DRNL)  ANO  COEFFICIENTS  (OVNL)  FOR  NONLINEAR  WALL  BOUNDARY 
CONDITIONS*  ANO  ERRORS  FOR  TAYLOR  SERIES  EXPANSIONS  AND  LINEAR 
BOUNDARY  CONDITIONS  FOR  F  AND  ITS  DERIVATIVES  <FLE)»  ENTHALPY  AND 
ITS  DERIVATIVES  (GLE) »  AND  ELEMENTAL  MASS  FRACTIONS  AND  THEIR  DER¬ 
IVATIVES  (SPLE). 
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COLUMN  20  NON-ZERO  ENTRY  PROVIDES  DEBUG  OUTPUT  FOR  THERMODYNAMIC  AND 
TRANSPORT  PROPERTIES  <KR<7>  :  0  OR  2  ONLY). 

0  NO  DEBU6 

X  FOR  X  GREATER  THAN  ZERO.  GIVES  THERMODYNAMIC  AND  TRANSPORT  PROPERTY 
INFORMATION  FOR -EACH  CHEMISTRY  SOLUTION 

2  GIVES  MATRIX  OF  PROPERTY  DERIVATIVES  BEFORE  AND  AFTER  INVERSION 

FIELD  2  (COLUMNS  21-80).  CASE 

TITLE  OF  CASE  (ALPHANUMERIC).  USED  FOR  IDENTIFICATION  OF  PRINTED  OUTPUT) 
CARO  2 

INSERT  A  BLANK  CARD  HERE 


GROUP  2  NUMBER  OF  ELEMENTS  (CALLED  FROM  RECASE) 


CARD  1.  FORMAT ( 12 »BX» 4011) 

FIELD  t  (COLUMNS  1-2.  RIGHT-JUSTIFIED) .  NSP 

NUMBER  OF  ELEMENTS  IN  THE  SYSTEM  NOT  INCLUDING  ELECTRONS  (MAX.  OF  9) 


FIELDS  2-51  (COLUMNS  (11-60).  KS(M)»  M=1»NS  *****  USED  ONLY  FOR  KR(9> 

OR  ANY  OF  THE  KR9  s  3  OR  4  ***** 

THE  SURFACE  MATERIAL  IS  SPECIFIED  IN  ADVANCE  BY  THE  USER  FOR  KR(9)  s 
3  OR  4.  UP  TO  THREE  MATERIAL  COMBINATIONS  ARE  ALLOWED.  EACH 
COMBINATION  MAY  HAVE  A  SEPARATE  PYROLYSIS  GAS  AND  CHAR  MATERIAL 
SPECIFIED  IN  GROUP  11.  FIELD  5.  ENTER  A  l»  2.  OR  3  TO  DENOTE  MATERIAL 
COMBINATION  l.  2.  OR  3  STARTING  WITH  THE  STATION  1  ENTRY  IN  COLUMN  11. 
STATION  2  IN  COLUMN  12.  ETC.  SEE  ALSO  GROUP  6.  CARDS  1  AND  2*> 
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GROUP  3  TIMES  AND  STATIONS  (CALLED  FROM  RECASE) 


CARD  1#  FORMAT (12) 

FIELD  1.  (COLUMNS  1-2#  RIGHT-JUSTIFIED) #  NlTEM 


NUMBER  OF  TIMES  (OR  SUBCASES)  BEING  CONSIDERED  IN  PRESENT  CASE*  (MAXIMUM 
OF  50)*  A  SERIES  OF  PROBLEMS  CAN  BE  CONSIDERED  AS  A  SEQUENCE  OF  TIMES 
(OR  SUBCASES)  IN  THE  SAME  CASE  AS  LONG  AS  THE  FOLLOWING  ARE  UNCHANGED# 
NUMBER  OF  ELEMENTS  (GROUP  2)#  STREAMWISE  STATIONS  (CAPO  3  AND  CARO  SET 
4  OF  THIS  GROUP)#  NODAL  SPACIN6  (GROUP  4)»  BODY  SHAPE  (GROUP  5)»  ANO 
ELEMENTAL  AND  SPECIES  OATA  (GROUP  10  OR  11  THRU  14)  (ANO  THUS  EDGE  GAS 
ANO  WALL  MATERIAL).  CALCULATIONS  ARE  PERFORMED  FOR  ALL  TIMES  AT  A 
GIVEN  STATION  BEFORE  PROCEEDING  TO  NEXT  STATION  AND  THUS  APPEAR  IN  THIS 
ORDER  IN  THE  PRINTED  ANO  PUNCHED  CARD  OUTPUT* 


CARD  SET  2#  FORMAT(8E10.4) 

FIELD  1  (COLUMNS  1-10) »  FIELO  2  (COLUMNS  11-20) #  ETC. »  8  TO  A  CARD# 

TIME(  M)#  M=1»NITEM  (SEE  CARD  1  OF  THIS  GROUP) 

TIME#  SEC.  THIS  VARIABLE  SERVES  ONLY  TO  IDENTIFY  SOLUTIONS  SINCE  TIME 
DOES  NOT  ENTER  INTO  THE  SOLUTION  OF  THE  PROBLEM.  USE  A  NEGATIVE  ENTRY 
FOR  TIMEd)  IF  IT  IS  OESIRED  THAT  THESE  IDENTIFICATION  NUMBERS  BE  CALLED 
CASES  IN  THE  OUTPUT  FORMAT  (OTHERWISE#  THEY  ARE  IDENTIFIED  AS  TIMES). 


CARO  3#  FORMAT < 12# 8X# 4011) 

FIELD  1  (COLUMNS  1-2#  RIGHT-JUSTIFIED)#  NS 
NUMBER  OF  STREAMWISE  STATIONS  (MAXIMUM  OF  40) 

FIELD  2  (COLUMNS  11-50)#  KR9 

VALUES  TO  BE  ASSIGNEO  TO  KR(9)  WHEN  WALL  BOUNDARY  CONDITIONS  ARE  TO  BE 
CHANGED  AT  DOWNSTREAM  STATIONS  (SEE  CARD  l  OF  GROUP  D.  COLUMN  11 
CORRESPONDS  TO  STATION  5(1) #  COLUMN  12  TO  STATION  S(2)#  ANO  SO  CN. 

IF  WALL  BOUNDARY  CONDITIONS  ARE  NOT  TO  BE  CHANGED  AT  DOWNSTREAM 
STATIONS#  THIS  FIELD  SHOULD  BE  LEFT  BLANK,  WHEN  THE  KR9(  )  ARE  v 
EMPLOYEO#  KR(9)  SHOULD  BE  GIVEN  THE  SAME  VALUE  AS  KR9(i)  EXCEPT  WHEN 
USING  THE  TRANSPIRATION  OPTION  DESCRIBED  IN  APPENDIX  X  OF  THIS  MANUAL. 

AT  THE  PRESENT  TIME#  IT  IS  POSSIBLE  TO  CONSIDER  ANY  COMBINATIONS  OF 
KR9  OF  2#  3#  ANO  4  COMPRISING  REGIONS  OF  AN  ABLATION  MATERIAL  AND 
REGIONS  WHERE  THERE  IS  NO  ABLATION  (THESE  NONABLATXNG  REGIONS  ARE  OB¬ 
TAINED  BY  USE  OF  KR9(  )  =  2  WHILE  ASSIGNING  ZERO  COMPONENT  MASS  FLUXES# 
SEE  CARD  SET  11  OF  GROUP  16) 
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CARO  SET  4*  FORMAT (8E10. 4) 

FIELD  1  (COLUMNS  1-10)*  FIELO  2  (COLUMNS  11-20)*  ETC.*  8  TO  A  CARO* 

S(  L)*  LSI* NS  (SEE  CARD  3  OF  THIS  GROUP) 

STREAMWISE  OISTANCE  UPON  WHICH  BOUNDARY-LAYER  SOLUTION  IS  BASED*  FEET. 

A  BLUNT-BODY  PROBLEM  (KR<6>  =0*1  OR  5)  SHOULD  START  WITH  AN  S(l>  OF  0. 

A  SHARP-BODY  PROBELM  (KR(6)  =  2*3  OR  7)  OR  A  NOZZLE-TYPE  PROBLEM  (KR(6)= 
4  OR  8)  MUST  NOT  START  WITH  A  S(l)  OF  0.  BUT  MUST  START  WITH  SOME  FINITE 
DISTANCE.  THE  BOUNDARY  LAYER  IS  ASSUMED  TO  BE  SIMILAR  UP  TO  AND  INCLUD¬ 
ING  THIS  FIRST  STATION.  A  NEGATIVE  ENTRY  FOR  St  L)  SIGNIFIES  A  DISCON¬ 
TINUITY  AT  THAT  STATION.  THIS  PRODUCES  A  TWO-POINT  DIFFERENCE  SOLUTION 
AT  THE  FIRST  STATION  AFTER  THE  DISCONTINUITY  AND  THUS  HAS  AN -EFFECT  ONLY 
FOR  THREE-POINT  SOLUTIONS  (KR(3)S2)»  ALSO*  FOR  BLUNT  BODIES*  A  MINUS 
SIGN  AT  A  STATION  CAUSES  STREAMWISE  INTEGRATIONS  TO  REVERT  TO  S  AS  THE 
INDEPENDENT  VARIABLE  -  SEE  DISCUSSION  UNDER  CARD  I*  COLUMN  6  OF  GROUP  1. 


GROUP  4  NODAL  DATA  (CALLED  FROM  RECASE)  ***  SKIP  THIS  GROUP  FOR  KR(1)=0  *** 


CARD  X*  FORMAT (12)  *****  USED  ONLY  IF  KRU)5l  ***** 

FIELD  1  (COLUMNS  1-2*  RIGHT-JUSTIFIED) »  NETA 

NUMBER  OF  NODAL  POINTS  ACROSS  THE  BOUNDARY  LAYER  INCLUDING  WALL  AND 
BOUNDARY  LAYER  EOGE  (MAXIMUM  OF  15). 


CARO  SET  2*  FORMAT(8EX0.4)  *****  USED  ONLY  IF  KRU)=1  ***** 

FIELD  1  (COLUMNS  1-10)*  FIELD  2  (COLUMNS  11-20) *  cETC. *  8  TO  A  CARD* 
ETAM).  I=1»NETA  (SEE  CARO  1  OF  THIS  GROUP) 

ETA  STATIONS  ACROSS  THE  BOUNDARY  LAYER*  STARTING  AT  WALL  (ETASO.O).  IT 
IS  RECOMMENOED  THAT  THE  VALUE  OF  ETA  AT  THE  BOUNDARY-LAYER  EDGE  BE  GIVEN 
A  VALUE  OF  ABOUT  5.0  SO  THAT  THE  STRETCHING  PARAMETER  WILL  BE  NEAR 
UNITY.  ALSO*  THERE  SHOULD  NOT  BE  MUCH  MORE  THAN  A  TWO-FOLD  CHANGE 
IN  DISTANCE  BETWEEN  TWO  NEIGHBORING,  NODES.  BEST  ACCURACY  FOR  A  GIVEN 
NUMBER  OF  NODES  IS  OBTAINED  IF  THE  NODES  ARE  CLOSER  TOGETHER  NEAR 
THE  WALL.  FOR  LAMINAR  PROBLEMS*  7  NOOES  ARE  OFTEN  SUFFICIENT  WITH 
A  TYPICAL  SPACING  BEING  0.0*  0.5*  1.0*  1.5*  2.0 *  3.0*  5.0  AND  WITH 
KAPPA  =  5*  CBAR  =  0*8  (SEE  CARD  3*  FIELDS  1  AND  2  OF  THIS  GROUP).  FOR 
TURBULENT  BOUNDARY  LAYERS*  MORE  NOOES  ARE  NEEDEO  CLOSE  TO  THE  WALL  DUE 
TO  THE  STEEP  GRADIENTS  THERE.  A  TYPICAL  SPACIN6  WOULD  BE  6.0*  0.024* 
0.040*  0.072*  0.120*  0.200*  0.320*  0.480*  0.800*  1.400*  2.000*  3.200* 
5.000*  WITH  KAPPA  =  11  ANO  CBAR  =  0.95.  WHATEVER  THE  NODE  SPACING  THE 
USER  MUST  EXAMINE  THE  SOLUTIONS  TO  BE  SURE  THAT  A  REASONABLE  CURVEFIT 
IS  OBTAINED  NEAR  THE  WALL.  THIS  CAN  BE  A  PROBLEM  FOR  LARGE  STREAMWISE 
DISTANCES  IN  TURBULENT  FLOWS. 
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CARO  3*  FORMAT ( l2*E10»4)  *****  USED  ONLY  IF  KR(1)=1  ***** 

FIELD  1  (COLUMNS  1-2*  RIGHT-JUSTIFIED) »  KAPPA 

THE  VARIABLE  KAPPA  IS  ASSOCIATED  WITH  THE  CONSTRAINT  WHICH  IS  UTILIZED 
TO  EFFECT  A  STRETCHING  OF  ETA*  THE  BOUNDARY-LAYER  COORDINATE  NORMAL  TO 
THE  SURFACE*  IN  ORDER  TO  EFFECTIVELY  USE  THE  ASSIGNED  NODAL  SPACING  (SEE 
CARDS  1  AND  2  OF  THJS  GROUP).  KAPPA  IS  THE  INDEX  FOR  THE  NODAL  POINT 
AT  WHICH  THE  VELOCITY  RATIO  IS  FIXED.  TO  ILLUSTRATE*  IF  KAPPA  IS  5* 
THEN  THE  FIFTH  NODAL  POINT  COUNTING  FROM  THE  WALL  AND  INCLUDING  THE  WALL 
WILL  HAVE  A  VALUE  OF  CBAR  (A  QUANTITY  WHICH  IS  INPUT  IN  THE  SECOND  FIELD 
OF  THIS  CARD). 

FIELD  2  (COLUMNS  3-12)*  CBAR 

CBAR  IS  THE  VALUE  OF  THE  VELOCITY  RATIO  AT  THE  BOUNDARY-LAYER  NODE 
DESIGNATED  KAPPA  (SEE  DISCUSSION  UNOER  FIELD  1  OF  THIS  CARD) 


GROUP  5  BODY  SHAPE  DATA  (CALLED  FROM  RECASE) 


CARD  1*  F0RMAT(2E10.4)  *****  USED  ONLY  IF  BLUNT  BODY*  KR(6)=0»1*  OR  5  ***** 
FIELD  1  (COLUMNS  1-10)*  CONE 

CONE  HALF-ANGLE  IN  SPHERE-CONE  SHAPE  BODIES*  LEAVE  BLANK  FOR  OTHER 
BODY  SHAPES. 

FIELD  2  (COLUMNS  11-20)*  RNOSE 

EFFECTIVE  NOSE  RADIUS*  FEET.  THE  VALUE  READ  INTO  THIS  FIELD  IS  OVER¬ 
RIDDEN  IF  THE  PRESSURE  RATIO  At  THE  FIRST  STATION*  PRE(1>»  IS  READ  IN* AS 
A  ZERO  (SEE  CARD  SET  3  OF  GROUP  15).  IF  PRE(l)  IS  NON-ZERO*  THEN  A  NON¬ 
ZERO  ENTRY  IN  THE  CURRENT  FIELD  IS  USED  IN  THE  CALCULATION  OF  STAGNATION 
POINT  VELOCITY  GRADIENT  FROM  THE  NEWTONIAN  RELATION 

DUES  =  SQRT(2./RH0E  *  PE  *  32.1740  *  2116.)  /  RNOSE 

WHERE  DUES  IS  THE  STAGNATION  POINT  VELOCITY  GRADIENT  AND  RHOE  AND  PE  ARE 
LOCAL  STAGNATION  DENSITY  (LB/FT3)  AND  PRESSURE  (ATM)*  RESPECTIVELY. 

THIS  LATTER  APPROACH  IS  REQUIRED  FOR  BLUNT-BODY  PROBLEMS  IF  THERE  IS 
ONLY  ONE  STATION  (NS  s  1*  SEE  CARD  3  OF  GROUP  3).  WHEN  RNOSE  IS  READ 
INTO  THE  CURRENT  FIELD  AND  NOT  BEING  OVERRIDDEN  (I.E.*  WHEN  PRE(l)  IS 
NOT  SET  EQUAL  TO  ZERO)  A  MACH  NUMBER  CORRECTION  (IMPORTANT  FOR  LOW  FREE- 
STREAM  MACH  NUMBERS)  CAN  BE  MADE  BY  INPUTTING 

RNOSE  s  REFF  /  SQRT<1.  -  PINF  /  PE) 
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WHERE  REFF  IS  THE  TRUE  EFFECTIVE  NOSE  RADIUS  (FEET)  AND  PINF  IS  THE  FREE 
STREAM  STATIC  PRESSURE  (LB/FT2) •  (IF  THE  CURRENT  FIELD  IS  LEFT  BLANK  AND 
PRE(l)  IS  NON-ZERO.  THE  STAGNATION-POINT  VELOCITY  GRADIENT  IS  COMPUTED 

From  a  curve  fit  of  the  pre  around  the  body,  in  any  event*  a  curve  FIT 

OF  PRESSURE  IS  USEO  TO  COMPUTE  VELOCITY  GRADIENT  FOR  STATIONS  2  AND 
BEYOND). 


CARD  SET  2#  FORMAT(8E10.4)  *****  NOT  USED  IF  KR(6)=l  OR  3  ***** 

FIELD  1  (COLUMNS  1-10) »  FIELD  2  (COLUMNS  11-20).  ETC.*  8  TO  A  CARD* 
ROKAP(  L)*  L=l*  NS  (SEE  CARD  3  OF  GROUP  3) 

THIS  IS  THE  LOCAL  BODY  RADIUS  IN  FEET  NORMAL  TO  THE  BODY  CENTERLINE 
RAISED  TO  THE  KAPPA  POWER  WHERE  KAPPA  IS  UNITY  FOR  AXISYMMETRIC  BODIES 
AND  ZERO  FOR  PLANAR  BODIES.  THEREFORE*  ROKAP  IS  UNITY  FOR  PLANAR  BODIES 
AND  LOCAL  BODY  RADIUS  FOR  AXISYMMETRIC  BODIES.  FOR  PLANAR  BODIES*  THIS 
CARD  SET  IS  USED  ONLY  IF  KR<6)  =  4.  TWO  SPECIAL  INPUT  FORMATS  CAN  BE 
USED.  FOR  SPHERE  CONE  BODIES.  SET  ROKAP(l)  EQUAL  TO  MINUS  THE  NOSE 
RADIUS.  THE  NOSE  RADIUS  IS  THEN  SET  TO  -ROKAP(i)  AND  ROKAP(l)  IS  SET  TO 
ZERO.  IF  SUBSEQUENT  ROKAP <  )  ARE  INPUT  AS  ZEROES*  THE  PROGRAM  COM¬ 

PUTES  ROKAP  FROM  S  FOR  A  SPHERICAL  NOSE.  THE  FIRST  NONZERO  ENTRY  IS 
THE  ROKAP  AT  THE  CONE  TANGENT  POINT.  IF  THIS  IS  AGAIN  FOLLOWED  BY 
ZEROES*  LINEAR  INTERPOLATION  IS  USED  TO  THE  NEXT  NONZERO  ENTRY  TO  YIELD 
ROKAP  ALONG  A  CONICAL  AFTERBODY. 

FOR  SHARP  CONES.  KR(6)  =  2  OR  7*  SET  ROKAP(l)  EQUAL  TO  MINUS  THE 
CONE  HALF  ANGLE  IN  DEGREES.  ROKAP(l)  IS  THEN  SET  TO  ZERO  AND  THE 
PROGRAM  COMPUTES  ROKAP  FROM  S  FOR  A  SHARP  CONE  OF  THE  SPECIFIED  HALF 
ANGLE. 


GROUP  6  MATERIAL  PROPERTY  DATA  NEEDED  FOR  WALL  QUASI-STEADY  ENERGY  BALANCE 

(CALLED  FROM  RECASE)  *****CONSIDER  THIS  GROUP  ONLY  IF  KR(9)  OR  ANY  OK 

THE  KR9  IS  EQUAL  TO  3  OR  GREATER***** 


CARD  1*  FORMAT (9E8» 3)  **  USED  ONLY  IF  KR(9)  OR  ANY  OF  THE  KR9  IS  3  OR  4  ** 

FIELDS  1*4*7  (COLUMNS  1-8*  25-32*  49-56)*  £MIV< D *  1=1*3 

SURFACE  EMITTANCE  OF  THE  MATERIAL  COMBINATIONS  BEING  CONSIDERED  UNDER 
KR(9)  OR  KR9  OF  3  OR  4. 

FIELDS  2*5*8  (COLUMNS  9-16.  33-40*  57-64).  HCARB(I) *1=1*3 

HEAT  OF  FORMATION  (BTU/LB)  OF  THE  VIRGIN  STATE  OF  THE  ABLATION  MATERIALS 
BEING  CONSIDERED  UNDER  KR(9)  OR  KR9  OF  3  OR  4. 
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FIELDS  3*6*9  (COLUMNS  17-24*  41-48*  65-72)*  HP6<I) *1=1*3 

HEAT  OF  FORMATION  (BTU/LB)  OF  THE  TRANSPLANTS  BEING  CONSIDERED  UNDER 
KR<9>  OR  KR9  OF  3  OR  4. 


CARD  2*  F0RMAT<6A4>  **  USED  ONLY  WITH  CARD  1  ** 

FIELDS  1*2*  AND  3  (COLUMNS  1-8*  9-16*  17-24) 

NAMES  OF  SURFACE  SPECIES  FOR  MATERIAL  COMBINATIONS  1*2*  AND  3  EXACTLY  AS 
THEY  APPEAR  IN  THE  THERMODYNAMIC  DATA  TABLES  (GROUP  13)*  LEFT  JUSTIFIED. 


GROUP  7  FUNCTION-OF-TIME  DATA  (CALLED  FROM  RECASE) 


*  * 

CARD  SET  1*  FORMAT (BE10. 4) 

FIELD  1  (COLUMNS  1-10)*  FIELD  2  (COLUMNS  11-20)*  ETC.*  8  TO  A  CARD* 
PTET(  M)*  M=1»NITEM  (SEE  CARD  1  OF  GROUP  3) 

LOCAL  STAGNATION  PRESSURE  FOR  EACH  TIME  BEING  CONSIDERED*  ATMOSPHERES 


CARD  SET  2*  FORMAT(8E10.4) 

FIELD  1  (COLUMNS  1-10)*  FIELD  2  (COLUMNS  11-20)*  ETC.*  8  TO  A  CARD* 
GE<  M>*  M=1*NITEM  (SEE  CARD  1  OF  GROUP  3) 

STAGNATION  ENTHALPY  FOR  EACH  TIME  BEING  CONSIDERED*  BTU/LB 


CARD  SET  3*  FORMAT(8E10.4) 

FIELD  1  (COLUMNS  1-10)»  FIELD  2  (COLUMNS  11-20)*  ETC.*  8  TO  A  CARD* 
RA0FL<  M)*  M=1*NITEM  (SEE  CARD  1  OF  GROUP  3) 

INCIDENT  RADIATION  FLUX  ABSORBED  BY  THE  SURFACE  AT  STATION  S(l>  FOR  EACH 
TIME  BEING  CONSIDERED*  BTU/SEC  FT2  (IF  A  SURFACE  ABSORPTIVITY  LESS  THAN 
UNITY  IS  TO  BE  CONSIDERED*  THESE  ENTRIES  SHOULD  BE  CORRECTED  FOR  SURFACE 
ABSORPTIVITY).  THIS  INFORMATION  IS  USED  ONLY  FOR  KR(9)  OR  KR9  OF  4  OR  6. 
INPUT  BLANKS  IN  THIS  FIELD  FOR  OTHER  TYPES  OF  PROBLEMS.  RADIATION  FLUX 
AT  OTHER  STATIONS  WILL  BE  INPUT  AS  RATIOS  IN  GROUP  15.  ‘ 


-15- 


AFWL-TR-69-114 ,  Vol .  I 


GROUP  8  TURBULENT  FLOW  PARAMETERS  (CALLED  FROM  TREMBL>  ****  CONSIDER  THIS 
GROUP  ONLY  IF  KR(7)=2  OR  3  **** 


CARD  1#  FORMATC6E10.3) 

FIELDS  1-6#  (COLUMNS  1-10#  11-20#  21-30#  31-40#  41-50#  51-60)  ELCON#  YAP# 
CLNUM#  SCT *  PRT#  RETR 

ELCON  IS  THE  PRANDTL  MIXING  LENGTH  CONSTANT  (0.44  IS  A  TYPICAL  VALUE). 

YAP  IS  A  CONSTANT  OF  PROPORTIONALITY  IN  THE  MIXING  LENGTH  EXPRESSION 
(11.823  IS  A  TYPICAL  VALUE). 

CLNUM  IS  THE  CLAUSER  CONSTANT  OF  PROPORTIONALITY  IN  WAKE  REGION  (0.018 
IS  A  TYPICAL  VALUE). 

SCT  IS  THE  TURBULENT  SCHMIDT  NUMBER. 

PRT  IS  THE  TURBULENT  PRANDTL  NUMBER. 

RETR  IS  THE  TRANSITION  REYNOLDS  NUMBER  BASED  ON  MOMENTUM  THICKNESS.  IF 
RETR  IS  EXCEEDEO#  TURBULENCE  TERMS  WILL  BE  INCLUDED  IN  THE  GOVERNING 
EQUATIONS. 


GROUP  9  FIRST  GUESS  OR  RESTART  INFORMATION  (CALLED  FROM  FIRSTG)  ****  SKIP 
THIS  GROUP  FOR  KR(2)=2.  CONSIDER  ONLY  CARD  6  FOR  KR(2)=0  ***♦ 


CARD  1#  FORMAT(3EIO,4#5X»I5)  ****  USED  ONLY  FOR  KR(2)si  OR  3  **** 

FIELD  1  (COLUMN  1-10)  ALPH 

FIRST  GUESS  OR  RESTART  VALUE  FOR  BOUNDARY  LAYER  NORMALIZING  PARAMETER 
(USE  A  1.0  IF  A  BETTER  GUESS  IS  NOT  KNOWN). 

FIELD  2  (COLUMNS  11-20)  F(l#l) 

FIRST  GUESS  OR  RESTART  VALUE  FOR  STREAM  FUNCTION  AT  THE  WALL. 

FIELD  3  (COLUMNS  21-30)  F < 3* 1) 

FIRST  GUESS  OR  RESTART  VALUE  FOR  NORMALIZED  VELOCITY  GRADIENT  AT  THE 
WALL. 

FIELD  4  (COLUMN  36-40#  RIGHT  JUSTIFIED)  1ST 

STATION  NUMBER  FOR  RESTART#  MEANINGFUL  ONLY  FOR  KR(2)=3. 
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CARD  SET  2*  FORMAT<8£10.4>  ****  USED  ONLY  FOR  KR(2)=1  OR  3  **** 

FIELD  1  (COLUMNS  1-10)*  FIELD  2  (COLUMNS  11-20)*  ETC.*  8  TO  A  CARD* 
F(2* I ) *  I=1*NETA. 

FIRST  GUESSES  OR  RESTART  VALUES  FOR  VELOCITY  RATIO  F(2*I)  ACROSS  THE 
BOUNDARY  LAYER. 


CARO  SET  3*  F0RMAT(8E10.4)  ****  USED  ONLY  FOR  KR(2>=1  OR  3  **** 

FIELD  1  (COLUMNS  1-10)*  FIELD  2  (COLUMNS  11-20)*  ETC.*  8  TO  A  CARD* 
G(2*l)*  G(1*I)«  I=1*NETA 

FIRST  GUESSES  OR  RESTART  VALUES  FOR  ENTHALPY  GRADIENT  AT  THE  WALL  G(2»l> 
AND  ENTHALPY  G(1»I)  ACROSS  THE  BOUNDARY  LAYER*  BTU/LB. 


CARD  SET  4*  FORMAT(8E10.*»;  ****  USED  ONLY  FOR  KR(2)=1  OR  3  AND  NSP  GREATER 
THAN  1  ♦*** 

FIELD  1  (COLUMNS  1-10)*  FIELD  2  (COLUMNS  11-20)*  ETC.*  8  TO  A  CARD* 
(SP(2»1»K).  SP ( 1 » I ♦ K ) *  I=1*NETA)  K=t*  NSP-1 

FIRST  GUESSES  OR  RESTART  VALUES  FOR  ELEMENTAL  MASS  FRACTION  GRADIENT 
AT  THE  WALL  SP(2»1*K)  AND  ELEMENTAL  MASS  FRACTION  VALUES  SP(1»I»K) 
ACROSS  THE  BOUNDARY  LAYER.  READ  IN  WALL  GRADIENT  AND  VALUES  AT  NODES 
FOR  EACH  SPECIES  BEFORE  GOING  ON  TO  NEXT  SPECIES.  START  EACH  SPECIES 
ON  A  NEW  CARD. 


CARD  SET  5*  FORMAT(40I2>  ****  USED  ONLY  FOR  KR(2)=1  OR  3  AND  NSP  GREATER 
THAN  1  ♦*** 

FIELD  1  (COLUMNS  1-2*  RIGHT  JUSTIFIED)*  FIELD  2  (COLUMNS  3-4*  RIGHT 
JUSTIFIED)*  ETC.*  (LEF(K) *  K=1*NSP)  (SEE  CARD  1  OF  GROUP  2) 

ENTRIES  IN  THESE  FIELDS  MUST  INDIVIDUALLY  CORRESPOND  TO  THE  ELEMENTS  AS 
THEY  ARE  SELECTED  FROM  THE  THERMODYNAMIC  DATA  (SEE  DISCUSSION  UNDER 
GROUP  13)  ACCORDING  TO  WHETHER*  FOR  THE  FIRST  STATION*  THE  ELEMENT  IS 

0  NOT  PRESENT 

1  PRESENT  DUE  TO  LOCAL  INJECTION 

2  PRESENT  DUE  TO  UPSTREAM  INJECTION  (NOT  POSSIBLE  AT  FIRST  STATION) 

3  PRESENT  FROM  THE  EDGE  GAS 

CARD  6*  FORMAT(E10 .4)  *****  USED  ONLY  FOR  KR(2)=0  ***** 

FIELD  1  (COLUMNS  1-10)*  GW 

FIRST  GUESS  FOR  ENTHALPY  OF  THE  GAS  AT  THE  WALL*  BTU/LB 
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GROUP  10  THIS  CARD  GROUP  IS  NOT  USED  IN  THE  PRESENT  VERSION  OF  THE  PROGRAM. 


GROUP  11  ELEMENTAL  DATA  (CALLED  FROM  INPUT) 

****  SKIP  THIS  GROUP  FOR  KR<12>=1  OR  6  OR  FOR  KR(7)sl  OR  3  **** 


CARD  1#  FORMAT (I3#F7.0#7F10 .4)  ****  USED  ONLY  FOR  KR( 12)=0#2»5»  OR  7 

FIELD  1  (COLUMNS  1-3#  RIGHT-JUSTIFIED)#  IS 

NUMBER  OF  ELEMENTS  IN  THE  SYSTEM  INCLUDING  ELECTRONS  IF  CONSIDERED  (THIS 
ENTRY  WILL  BE  THE  SAME  AS  CARD  1  OF  GROUP  2  (EXCEPT  FOR  THE  DIFFERENT 
FORMAT)  FOR  SYSTEMS  NOT  CONTAINING  ELECTRONS  BUT  WILL  BE  ONE  GREATER  FOR 
SYSTEMS  CONTAINING  ELECTRONS) 

FIELDS  2  AND  3  (COLUMNS  4-10# 11-20)  FFAR#  FITMOL 

CONSTANTS  IN  THE  CURVEFIT  OF  FF(J)  IN  TERMS  OF  MOLECULAR  WEIGHT.. 

FF(J)=(WTM(J)/FITMOL)**PFAR 

FFAR  AND  FITMOL  ARE  PRESUMED  TO  BE  0.431  AND  23.4  IF  NO  ENTRY  IS  MADE. 

FIELDS  4#  5#  AND  6  (COLUMNS  21-30#  31-40#  41-50)  BASMOL#  SIGMA#  EPOVRK 

THESE  VARIABLES  DEFINE  THE  REFERENCE  SPECIES  PROPERTIES  FOR  FF(J)  (REF. 
5),  BASMOL  IS  THE  MOLECULAR  WEIGHT  OF  THE  REFERENCE  SPECIES.  SIGMA  AND 
EPOVRK  ARE  THE  SPECIES  SIGMA  AND  EPSILON/K  AS  DEFINED  BY  REFERENCE  6. 

FOR  THE  CONVENIENCE  OF  THE  USER#  A  TABLE  OF  SIGMA  AND  EPOVRK  REPRODUCED 
FROM  REFERENCE  6  IS  INCLUDED  AS  APPENDIX  II  TO  THIS  MANUAL.  STANDARD 
VALUES  DESCRIBED  IN  REFERENCE  5  ARE  USED  IF  NO  ENTRIES  ARE  MADE. 

FIELD  7  (COLUMNS  71-80)  TF(N+1)  ****  USED  ONLY  FOR  KR(9>  =  2  WITH  KR(ll) 
s  o  **** 

ABLATION  TEMPERATURE#  ABOVE  WHICH  EQUILIBRIUM  CHAR  REMOVAL  RATE  WILL  BE 
DETERMINED.  BELOW  THIS  TEMPERATURE#  SURFACE  EQUILIBRIUM  IS  SUPPRESSED. 
AUTOMATICALLY  SET  TO  50# 000  K  IF  NO  ENTRY.  AN  ABLATION  TEMPERATURE  MUST 
BE  ENTERED  HERE  IF  SURFACE  CHEMISTRY  IS  TO  BE  CONSIDERED. 


CARDS  2#3. . * # IS  (ONE  FOR  EACH  ELEMENT#  SEE  CARD  1#  FIELD  1  OF  THIS  GROUP)# 

FORMAT( I3»3A4»E9.3»7E8.3)  ****  USED  ONLY  FOR  KR( 12)=0#2#5#  OR  7  *** 

FIELD  1  (COLUMNS  1-3#  RIGHT-JUSTIFIED)#  KAT(K) 

ATOMIC  NUMBER  OF  ELEMENT  (99  FOR  ELECTRON)#  CARDS  MUST  BE  ORDERED  WITH 
THIS  NUMBER  ASCENDING  WITH  ELECTRON  LAST  (WHEN  CONSIDERED). 
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FIELD  2»  (COLUMNS  4-15)  ATA(K) *  ATB(K) »  ATC(K) 

NAME  OF  ELEMENT  (USED  FOR  OUTPUT  ONLY).  FOR  BEST  LOOKING  OUTPUT.  ELEM¬ 
ENTS  WITH  3  OR  4  LETTERS  (EG..  IRON)  SHOULD  START  IN  COLUMN  6.  ELEMENTS 
WITH  5.  6.  OR  7  LETTERS  (EG..  CARBON)  SHOULD  START  IN  COLUMN  5.  AND 
ELEMENTS  WITH  8  OR  MORE  LETTERS  (EG..  NITROGEN)  SHOULD  START  IN  COL*  4. 

FIELD  3  (COLUMNS  16-24).  WAT(K) 

ATOMIC  WEIGHT  OF  ELEMENT 

FIELD  4  (COLUMNS  25-32)  TK(K.l) 

AMOUNT  OF  ELEMENT  IN  BOUNDARY-LAYER  EDGE  GAS.  SEE  BELOW  FOR  UNITS. 

FIELDS  5  TO  10  (COLUMNS  33-40.  41-48.  49-56.  57-64.  65-72.  73-80)  TK(K.J) 
J=2.7 

AMOUNT  OF  ELEMENT  IN  PYROLYSIS  GAS  AND  CHAR  FOR  EACH  OF  THE  THREE  ALLOW 
ABLE  MATERIALS.  FIELDS  5  AND  6  ARE  FOR  MATERIAL  1.  FIELDS  7  AND  8  FOR 
MATERIAL  2.  ETC.  NEGATIVE  VALUES  ARE  USED  TO  DESIGNATE  RELATIVE  MASSES 
OF  ELEMENTS.  WHEREAS  POSITIVE  VALUES  ARE  USED  TO  DESIGNATE  RELATIVE 
NUMBERS  OF  ATOMS.  AS  AN  EXAMPLE  OF  THE  LATTER »  THE  ENTRIES  FOR  A  SILICA 
CHAR  COULO  BE  1.  FOR  THE  ELEMENT  SILICON  AND  2.  FOR  OXYGEN. 


GROUP  12  DIFFUSION  FACTOR  DATA  (CALLED  FROM  INPUT) 

****  SKIP  THIS  GROUP  FOR  KR(7)=l  OR  3  OR  FOR  KR(12)=1  OR  6  OR  IF  IT 
IS  DESIRED  TO  USE  THE  MOLECULAR  WEIGHT  APPROXIMATION  FOR 
DIFFUSION  FACTORS  (SEE  FIELDS  2  AND  3  OF  CARD  1  OF  GROUP  ID. 
ALWAYS  SKIP  FOR  KR(7)=1  OR  3.  **** 


CARD  1.  FORMAT (13)  *****  USED  ONLY  FOR  KR(12)=0.  2.  5  OR  7  AND  THEN  ONLY  IF 

IT  IS  DESIRED  TO  READ  IN  DIFFUSION  FACTOR  DATA  FOR 
ONE  OR  MORE  SPECIES  ***** 

FIELD  1  (COLUMNS  1-3.  RIGHT-JUSTIFIED)  NFF 

NUMBER  OF  MOLECULES  FOR  WHICH  DIFFUSION  FACTOR  DATA  ARE  TO  BE  READ 
(SEE  FIELDS  2  AND  3  OF  CARD  1  OF  GROUP  11). 


CARDS  2»  3» ♦ . » »  AS  REQUIRED  (DIFFUSION  FACTOR  DATA  REQUESTED  BY  CARD  1  OF 
THIS  GROUP  ARE  ENTERED  HERE  4  TO  A  CARD)  F0RMAT(4(2A4»E12.4) ) 

*****  USED  ONLY  FOR  KR(12)»0>  2.  5  OR  7  AND  THEN  ONLY  IF  THE  CON¬ 
DITIONS  OF  CARD  1  OF  THIS  GROUP  ARE  MET  *♦***.  . 

FIELDS  1»  3»  5»  AND  7  (COLUMNS  l-8»  21-28.  41-48.  AND  61-68.  RESPECTIVELY) 

NFIA(J)  AND  NFIB(J)  IN  EACH  FIELD 
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NAME  OF  MOLECULE  AS  IT  APPEARS  IN  COLUMNS  73-80  ON  FIRST  CARD  OF  3-CARD 
THERMOOYNAMIC  DATA  SET  FOR  THE  MOLECULE  (SEE  GROUP  13#  CARDS  1#  4#  7#  .) 


FIELDS  2#  4#  6#  AND  8  (COLUMNS  9-20#  29-40#  49-60#  AND  69-80  RESPECTIVELY) 
FFIN(J)  IN  EACH  FIELD 

A  SET  OF  FF ( J)  ARE  INCLUDED  IN  THE  PROGRAM.  IF  ANY  OF  THESE  ARE  TO  BE 
CHANGED#  THE  NEW  VALUES  FOR  EACH  OF  THE  SPECIES  NAMED  IN  FIELDS  1»3#5 
ETC.  ARE  ENTERED  HERE  UNDER  THE  VARIABLE  NAME  FFIN(J).  THEY  ARE  THEN 
SORTED  BY  SPECIES  NAME  AND  ENTERED  INTO  THE  PROPER  SLOTS  IN  THE  FF(J) 
ARRAY.  THESE  DIFFUSION  FACTORS  ARE  REFERENCED  TO  OXYGEN  (02)  OR  OTHER 
REFERENCE  SPECIES  INDICATED  IN  GROUP  11.  TO  OBTAIN  ACCURATE  VISCOSITY 
CALCULATIONS  USE 

FF < J)=<SIGMA (J)*WTM(J)**.25*EP0VRK(J)**. 0795) /(SIGMA (REF) *WTM(REF) 
**.25*EP0VRK< REF) **.0795) 


GROUP  13  THERMOCHEMICAL  DATA  (CALLED  FROM  INPUT) 

*****  SKIP  THIS  GROUP  FOR  KR(12)=1  OR  6  OR  KR(7)=1  OR  3  **** 


THERE  ARE  THREE  CARDS  FOR  EACH  MOLECULAR#  ATOMIC#  CONDENSED#  OR  IONIC 
SPECIES.  A  TOTAL  OF  70  SPECIES  OF  ALL  TYPES  ARE  ALLOWED.  THE  NUMBER 
OF  ALLOWABLE  CONDENSED-PHASE  MATERIALS  WHICH  CAN  BE  SIMULTANEOUSLY 
PRESENT  IN  ANY  SOLUTION  IS  4.  ANY  NUMBER  OF  CONDENSED  PHASE  SPECIES 
CAN  BE  INCLUDED  IN  THE  THERMOCHEMICAL  DATA  DECK.  (NOTE...  CONDENSED 
SPECIES  ARE  REQUIRED  IN  SURFACE  EQUILIBRIUM  CALCULATIONS  FOR  CONSID¬ 
ERATION  AS  CANDIDATE  SURFACE  MATERIALS  BUT  ARE  NOT  PRESENTLY  CONSID¬ 
ERED  AS  CANDIDATE  SPECIES  WITHIN  THE  BOUNDARY  LAYER).  A  BLANK  CARD 
AFTER  THE  LAST  SET  CONCLUDES  THE  THERMODYNAMIC  DATA.  THE  ARRANGEMENT 
OF  THESE  CARD  SETS  IS  OF  CONSEQUENCE  IN  SO  FAR  AS  IT  DETERMINES  THE 
BASE  SPECIES  UPON  WHICH  MASS  BALANCES  ARE  PERFORMED#  THE  FIRST  INDE¬ 
PENDENT  SET  OF  BASE  SPECIES  BEING  SELECTED.  SINGULAR  MATRiCES  CAN  RE¬ 
SULT  FROM  CERTAIN  SETS  OF  THEORETICALLY  ACCEPTABLE  BASE  SPECIES  DUE 
TO  ROUND-OFF  ERRORS.  FURTHERMORE#  MASS  BALANCES#  ETC.  FOR  THE  (NSP)TH 
BASE  SPECIES  (SEE  CARD  1  OF  GROUP  2)  IS  OBTAINED  BY  DIFFERENCE. 
THEREFORE#  THE  ELEMENT  REPRESENTED  BY  THIS  BASE  SPECIES  SHOULD  BE 
PRESENT  IN  APPRECIABLE  QUANTITIES  THROUGHOUT  THE  BOUNDARY  LAYER. 

FOR  EXAMPLE#  FOR  ABLATION  IN  AIR#  MOLECULAR  NITROGEN  IS  A  GOOD  CHOICE 
FOR  THE  (NSP)TH  BASE  SPECIES,  FINALLY#  THE  ORDER  OF  THE  BASE  SPECIES 
DETERMINES  THE  REACTANTS  FOR  KINETICS  PROBLEMS  (SEE  GROUP  14#  CARD  3) 
EXCEPT  FOR  THESE  CONSIDERATIONS#  ATOMIC#  MOLECULAR#  AND  CONDENSED 
SPECIES  CAN  BE  ARRANGED  IN  ANY  ORDER.  WHEN  IONIZED  FLOWS  ARE  CON¬ 
SIDERED#  THE  ATOMIC#  MOLECULAR  AND  CONDENSED  SPECIES  DATA  MUST 
APPEAR  FIRST  AND  BE  FOLLOWED  BY#  FIRST#  ELECTRON  SPECIES  DATA#  AND 
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THEN  THE  IONIC  SPECIES  DATA  (WHICH  CAN  BE  IN  ANY  ORDER).  THE  DATA 
FORMAT  ACCEPTED  BY  THE  PROGRAM  (DESCRIBED  BELOW)  IS  AS  GENERATED  BY 
THE  AEROTHERM  TCDATA  PROGRAM  AND  IS  THE  SAME  AS  THAT  USED  IN  NAVWEPS 
REPORT  7043.  THERMOCHEMICAL  DATA  DECKS  HAVE  BEEN  GENERATED  FOR  ABOUT 
600  SPECIES*  BASED  MOSTLY  ON  CURVE  FITS  OF  JANAF  DATA. 


CARDS  1*  4.  7*  ....  ONE  FOR  EACH  MOLECULE  F0RMAT<7<F3.0» 13) *30X#2A4) 

*****  USED  ONLY  FOR  KR<12)=0.  2.  5  OR  7  ***** 

FIELDS  1*  3.  5.  ....  ONE  FOR  EACH  ELEMENT  IN  MOLECULE  (COLUMNS  l-3»  7-9» 
13-15.  ...).  ALPT(N)  IN  EACH  FIELD 

NUMBER  OF  ATOMS  (OF  ATOMIC  NUMBER  GIVEN  IN  SUBSEQUENT  FIELD)  IN  A 
MOLECULE  OF  THIS  SPECIES,  IF  FIELD  ONE  IS  ZERO  THIS  CARD  IS  PRESUMED 
TO  BE  THE  END  OF  THE  THERMODYNAMIC  DATA. 

FIELDS  2.  4.  6.  ...»  ONE  FOR  EACH  ELEMENT  IN  MOLECULE  (COLUMNS  4-6. 
10-12.  16-18.  ,..).  JAT(N)  IN  EACH  FIELD 

ATOMIC  NUMBERS  OF  ELEMENTS  IN  MOLECULES  (LISTED  IN  ASCENDING  SEQUENCE). 

LAST  FIELD  (COLUMNS  73-80) 

MOLECULAR  DESIGNATION  (E.G.»  SI02>  FOR  OUTPUT  AND  AS  IDENTIFIER  FOR 
DIFFUSION  FACTOR  DATA. 


CARDS  2.  5.  8.  ....  ONE  FOR  EACH  MOLECULE  FORMAT<6E9.6»6X»F6.0» ID 
*****  USED  ONLY  FOR  KR(12)s0.  2.  5  OR  7  ***** 

FIELD  1  (COLUMNS  1-9).  RA(J) 

HEAT  OF  FORMATION  OF  MOLECULE  AT  298  DEG  K  FROM  JANAF  BASE  STATE 
(ELEMENTS  IN  MOST  NATURAL  FORM  AT  298  DEG.  K)»  CAL/MOLE. 

FIELDS  2-6  (COLUMNS  10-18.  19-27.  28-36.  37-45.  AND  46-54).  CH(J.l). 

RC ( J. 1 ) » RD ( J» 1 ) . RE ( J. 1 ) »  RF(J.l) 

CONSTANTS  APPROPRIATE  TO  LOWER  TEMPERATURE  RANGE  OF  THERMODYNAMIC  DATA. 
TAKING  F2»  F3,  ....  AS  FIELDS  2»  3.  ETC..  THE  CURVE  FITS  ARE  AS  FOLLOWS 
WITH  T  IN  DEG  K.  H  IN  CAL/MOLE.  AND  S  IN  CAL/MOLE  DEG  K, 


HEAT  CAPACITY.  CP=F3+F4*T+F5/T**2 

ENTHALPY .  H-H298=F2+F3* ( T-3000 ) +0 . 5*F4* ( T**2-3000**2 ) 

-F5* ( l/T-1/3000 ) 

ENTROPY.  S=F6+F3*LN(T/3000)+F4*(T-3000)-0.5*F5*(1/T**2-1/3000**2) 
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FIELD  7  (COLUMNS  61-66)#  TU(J#1> 

UPPER  LIMIT  OF  LOWER  TEMPERATURE  RANGE  IN  DEG  K.  (FOR  CONDENSED-PHASE 
MATERIALS  WHICH  MELT#  IT  IS  APPROPRIATE  TO  USE  MELT  TEMPERATURES). 

FIELD  8  (COLUMN  67)#  KPHA(l) 

1  SIGNIFIES  GASEOUS  SPECIES 

2  SIGNIFIES  SOLID  SPECIES 

3  SIGNIFIES  LIQUID  SPECIES 


CARDS  3#  6#  9#  ...#  ONE  FOR  EACH  MOLECULE  F0RMAT(6E9.6#6X#F6.0* ID 
*****  USEO  ONLY  FOR  KR<12)=0»  2#  5  OR  7  ***** 

FIELDS  1-8  (COLUMNS  1-67) 

SAME  AS  CARDS  2#  5#  8#  ...»  EXCEPT  USE  CONSTANTS  FOR  UPPER  TEMPERATURE 
RANGE  AND  FIELD  7  IS  THE  FAIL  TEMPERATURE  OF  THIS  SPECIES  AS  A  SURFACE. 


LAST  CARD  ..«•  AS  MENTIONED  PREVIOUSLY#  A  BLANK  CARD  IS  USED  TO  SIGNIFY  THE 
END  OF  THERMOCHEMICAL  DATA 


GROUP  14  SURFACE  KINETIC  DATA  (CALLED  FROM  INPUT) 

****  SKIP  THIS  GROUP  FOR  KR(12>=0»1»  OR  2  OR  KR(7)=  1  OR  3  **** 


REACTIONS  OF  THE  SURFACE  MATERIALS  WITH  ADJACENT  BOUNDARY  LAYER  GASES 
CAN  BE  KINETICALLY  CONTROLLED  ACCORDING  TO  AN  ARRHENIUS  TYPE  RELATION. 
FOR  EXAMPLE#  IN  THE  REACTION 

C*  ♦  1/2  02  -*■  CO 


THE  MASS  FLUX  RELATION  IS 


• 

/  p  \EXK 

mc 

%  " 

FKF*exp  (EAK/(1.9869*T)  )*U’q  ”  ) 

\  2  P  / 

WHERE  — 

CARBON  MASS  FLUX 

%  = 

CARBON  MOLECULAR  WEIGHT 

FKF  = 

PRE-EXPONENTIAL  FACTOR 

EAK  = 

ACTIVATION  ENERGY 

T  = 

TEMPERATURE 

P  s 

PARTIAL  PRESSURE  OF  THE  SUBSCRIPTED  SPECIES 

K  = 

EQUILIBRIUM  CONSTANT 

EXK  = 

REACTION  ORDER 
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THESE  CONSTANTS  AND  FACTORS  ARE  INPUT  ON  THE  CARDS  DESCRIBED  BELOW. 
FURTHER  DISCUSSION  OF  KINETIC  MODELS  FOR  ABLATION  CAN  BE  FOUND  IN 
REFERENCE  7#  FOR  EXAMPLE- 


CARD  1»  FORMAT (13) 

FIELD  1  (COLUMNS  1-3. RIGHT  JUSTIFIED).  MT 

NUMBER  OF  KINETICALLY  CONTROLLED  REACTIONS  TO  BE  CONSIDERED.  IF  TWO 
PROBLEMS  ARE  STACKED  TOGETHER  SEPARATED  BY  A  COMMA  (SEE  CARD  1  OF  LAST 
GROUP)  AND  IF  THE  FIRST  IS  A  KINETICS  PROBLEM  AND  THE  SECOND  IS  TO  BE 
EQUILIBRIUM.  THEN  FOR  THE  SECOND*  KINETICS  MUST  BE  TURNED  OFF  USING 
KR(12)=5*6  OR  7  AND  MT=0. 


CAROS  2.5.6....  ONE  FOR  EACH  KINETICALLY  CONTROLLED  REACTION.  FORMAT(BE10*4> 
FIELD  1  (COLUMNS  1-10).  FKF(N) 

PRE-EXPONENTIAL  FACTOR  FOR  SURFACE  MASS  BALANCES  IN  LB-MOLES  OF  REACTANT 
PER  FT-M2  PER  SECOND. 

FIELD  2  (COLUMNS  11-20).  EAK(N) 

ACTIVATION  ENERGY  FOR  THE  FORWARD  REACTION  IN  CALORIES  PER  GRAM-MOLE 
FIELD  3  (COLUMNS  21-30).  EXK(N) 

REACTION  EXPONENT.  THE  DRIVING  POTENTIAL  AS  OBTAINED  FROM  THE  REACTION 
STOICHIOMETRY  IS  RAISED  TO  THIS  POWER  IN  EVALUATING  THE  REACTION  RATE. 
EXK  =  1.0  IS  RECOMMENDED. 


CARDS  3*6.9....  ONE  FOR  EACH  KINETICALLY  CONTROLLED  REACTION.  F0RMAT(8E10.4) 

FIELDS  1.2*3....*  ONE  FOR  EACH  BASE  SPECIES  (COLUMNS  1-10. 11-20. ...) . 
RMU(K.N) 

STOICHIOMETRIC  COEFFICIENTS  ON  REACTANTS.  IN  THE  PRESENT  FORMULATION 
ONLY  BASE  SPECIES  MAY  BE  USED  AS  REACTANTS.  THUS  SOME  CARE  MUST  BE 
USED  IN  ESTABLISHING  THE  ORDER  OF  GROUP  13. 

CARDS  4.7.10...*  ONE  FOR  EACH  KINETICALLY  CONTROLLED  REACTION. 
F0RMAT(6E10.4) 

FIELDS  1*2*3*...*  ONE  FOR  EACH  BASE  SPECIES  (COLUMNS  1-10*11-20*.,,)* 
PMU(K»N) 

STOICHIOMETRIC  COEFFICIENTS  ON  THE  PRODUCTS*  OR  ON  THEIR  EQUILIBRIUM 
BASE  SPECIES  EQUIVALENTS  IF  THEY  ARE  NOT  BASE  SPECIES,  FOR  EXAMPLE  IF 
THE  BASE  SPECIES  ARE  CO*  H20*  H2*  AND  C*  FOR  A  SYSTEM  WHERE  C*  IS  THE 
ONLY  ISOLATED  (NONEQUILIBRIUM)  SPECIES*  A  REACTION  WRITTEN  AS 
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H2  ♦  2C*  =  C2H2 
COULD  EQUIVALENTLY  BE  WRITTEN 

H2  ♦  2C*  =  2C0  ♦  3H2  -  2H20 

ANO  THIS  IS  THE  MANNER  IN  WHICH  THE  PRODUCT  COEFFICIENTS  WOULD  BE  INPUT. 
THIS  EQUIVALENT  REPRESENTATION  CAN  NOT  BE  USED  FOR  REACTANTS. 


GROUP  15  STREAMWISE  DISTRIBUTIONS  FOR  EDGE  CONDITIONS  (CALLED  FROM  REFCON) 


CARD  SET  1#  FORMAT(8E10«4)  *****  USED  ONLY  FOR  KR(5)=5  ***** 

FIELD  1  (COLUMNS  1-10) f  FIELD  2  (COLUMNS  11-20) »  ETC.*  8  TO  A  CARD* 
DSIP(L) *  L=1»NS  (SEE  CARO  3  OF  GROUP  3) 

OECREASE  IN  EDGE  ENTROPY  FROM  PREVIOUS  STATION  TO  CURRENT  STATION* 
CAL/GM  DEG  K  (THE  STAGNATION  POINT  ENTROPY  IS  COMPUTED  BY  THE  PROGRAM. 
OSIP  IS  USED  TO  DECREMENT  THE  ENTROPY  AT  DOWNSTREAM  STATIONS  TO  TAKE 
INTO  ACCOUNT  SHOCK  CURVATURE.  DSIP(l)  SHOULD  BE  SET  EQUAL  TO  ZERO.) 


CARD  2*  FORMAT (12)  *****  USED  ONLY  IF  CARD  SET  1  IS  USED  ***** 

FIELD  1  (COLUMNS  1-2*  RIGHT-JUSTIFIED)*  IOSIP 

IYEM  WHEN  DSIP  IS  TO  BE  UPDATED  WHERE  ITEM  IS  INDEX  ON  TIME  (OR  SUBCASE) 
USE  BLANK  CARO  IF  DSIP  IS  TO  REMAIN  UNCHANGED  FOR  ALL  REMAINING  TIMES  OR 
IF  NO  MORE  TIMES  ARE  TO  BE  CONSIDERED. 


CARD  SET  3*  FORMAT (8E10. 4) 

FIELD  1  (COLUMNS  1-10) »  FIELD  2  (COLUMNS  11-20)*  ETC.*  8  TO  A  CARD* 
PRE(L)»  L=1*NS  (SEE  CARD  3  OF  GROUP  3) 

RATIO  OF  LOCAL  STATIC  TO  STAGNATION  PRESSURE.  IN  ADDITION  TO  DEFINING 
THE  LOCAL  PRESSURE*  THIS  DATA  IS  USED  TO  FORM  THE  LOCAL  VELOCITY  GRAD¬ 
IENT  AT  THE  STAGNATION  POINT  AND  OTHER  BODY  STATIONS.  DUE  TO  THE  SENSI¬ 
TIVITY  OF  THE  PROGRAM  TO  THE  VELOCITY  GRADIENT  IN  THE  STAGNATION  REGION* 
TWO  OPTIONS  HAVE  BEEN  INCORPORATED  TO  ALLOW  A  SMOOTHER  VELOCITY  GRADIENT 
DISTRIBUTION  THAN  IS  TYPICALLY  OBTAINED  BY  READING  NUMBERS  FROM  A  SET 
OF  CURVES*  FOR  EXAMPLE.  THE  VARIOUS  OPTIONS  ARE  CONTROLLED  BY  THE 
ENTRIES  IN  THIS  PRESSURE  TABLE  AND  THE  EFFECTIVE  NOSE  RADIUS  ENTRY 
(GROUP  5*  CARO  1*  FIELD  2). 
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1)  PRE(l)  IS  READ  IN  BUT  RNOSE  IS  NOT 

THE  INPUT  PRESSURES  ARE  CURVEFITTED  AND  PRESSURE  AND  VELOCITY 
GRADIENTS  ARE  EVALUATED  DIRECTLY  FROM  THE  RESULTING  CURVE. 

2)  PRE(l)  AND  RNOSE  BOTH  READ  IN. 

STAGNATION  POINT  VELOCITY  GRADIENT  EVALUATED  FROM 
DUES  s  l./RN0SE*SQRf(2.*PE/RH0E*32. 174*2116.) 

3)  PRE(l)  NOT  READ  IN’  AND  PRE  (  )  NOT  READ  IN  FOR  AN  ARBITRARY 

NUMBER  OF  STATIONS’ 

IN  THIS  INSTANCE  THE  VELOCITY  GRADIENT  IS  ASSUMED  TO  BE  LINEAR 
AND  A  NEWTONIAN  PRESSURE  DISTRIBUTION  FOR  SMALL  S/R  IS  ASSUMED 
AT  THOSE  STATIONS  FOR  WHICH  NO  PRESSURE  IS  INPUT.  FIRST’  AN 
EFFECTIVE  NOSE  RADIUS’  RNOSE’  IS  COMPUTED  FROM  THE  FIRST  NONZERO 
PRESSURE  ENTRY  FROM  THE  RELATION 

RNOSE  s  S(L)/SQRT(1-PRE(L)> 

THE  STAGNATION  POINT  VELOCITY  GRADIENT  IS  THEN  FOUND  AS  IN 
OPTION  (2)  ABOVE.  PRESSURE  FOR  STATION  LL  LESS  THAN  L  IS  FOUND 
FROM 

PRE(LL)  si.-  (S(LL> /RNOSE) **2 


CARD  4*  FORMAT ( 12)  *****  USEO  ONLY  IF  CARD  SET  3  IS  USED  ***** 

FIELD  1  (COLUMNS  l-2»  RIGHT-JUSTIFIED) ’  IPRE 

ITEM  WHEN  PRE  IS  TO  BE  UPDATED  WHERE  ITEM  IS  INDEX  ON  TIME  (OR  SUBCASE) 
USE  BLANK  CARD  IF  PRE  IS  TO  REMAIN  UNCHANGED  FOR  ALL  REMAINING  TIMES  OR 
IF  NO  MORE  TIMES  ARE  TO  BE  CONSIDERED. 


CARD  SET  5»  FORMAT (6E10. 4) 

FIELD  1  (COLUMNS  1-10) »  FIELD  2  (COLUMNS  11-20).  ETC.’  B  TO  A  CARD’ 
RAOR(L) *  LSI, NS  (SEE  CARD  3  OF  GROUP  3) 

RATIO  OF  LOCAL  TO  STAGNATION  POINT  INCIDENT  RADIATION.  THIS  INFORMATION 
IS  USED  ONLY  FOR  KR(9)  OR  KR9  OF  4.  INPUT  BLANKS  INTO  THIS  FIELD  FOR 
OTHER  TYPES  OF  PROBLEMS. 


CARD  6’  FORMAT (12) 

FIELD  1  (COLUMNS  l-2»  RIGHT-JUSTIFIED)’  IRAD 

ITEM  WHEN  RADR  IS  TO  BE  UPDATED  WHERE  ITEM  IS  INDEX  ON  TIME  (OR  SUBCASE) 
USE  BLANK  CARD  IF  RADR  IS  TO  REMAIN  UNCHANGED  FOR  ALL  REMAINING  TIMES  OR 
IF  NO  MORE  TIMES  ARE  TO  BE  CONSIDERED. 
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GROUP  16  STREAMWISE  DISTRIBUTIONS  FOR  INPUT  WALL  CONDITIONS 
(CALLED  FROM  REFCON) 


CARD  SET  1*  FORMAT (8E10. 4)  ***  USED  ONLY  FOR  KR(11)=1  AND  KR(9)=0»1»  OR  2  ** 

FIELD  1  (COLUMNS  1-10)#  FIELD  2  (COLUMNS  11-20)#  ETC.#  8  TO  A  CARD# 
HW(L#1)»  L=1#NS  (SEE  CARD  3  OF  GROUP  3) 

ENTHALPY  OF  THE  GAS  AT  THE  WALL#  BTU/LB 


CARD  2#  F0RMAT(I2)  *****  USED  ONLY  IF  CARD  SET  1  IS  USED  ***** 

FIELD  1  (COLUMNS  1-2#  RIGHT- JUSTIFIED) »  IHW 

ITEM  WHEN  HW  IS  TO  BE  UPDATEO  WHERE  ITEM  IS  INDEX  ON  TIME  (OR  SUBCASE). 
USE  BLANK  CARD  IF  HW  IS  TO  REMAIN  UNCHANGED  FOR  ALL  REMAINING  TIMES  OR 
IF  NO  MORE  TIMES  ARE  TO  BE  CONSIDERED. 


CARO  SET  3#  FORMAT(8E10»4)  *****  USED  ONLY  IF  KR(11)=0  AND  KR(9)=0»1»  OR  2# 

IF  KR(9)=3  OR  IF  ANY  OF  THE  KR9=2  OR  3  **** 

FIELD  1  (COLUMNS  1-10)#  FIELD  2  (COLUMNS  11-20)#  ETC.#  8  TO  A  CARD# 
TW(L»D#  LSI# NS  (SEE  CARD  3  OF  GROUP  3) 

WALL  TEMPERATURE#  DEG  R 


CARD  4#  F0RMAT(I2)  *****  USED  ONLY  IF  CARD  SET  3  IS  USED  ***** 

FIELD  1  (COLUMNS  1-2#  RI6HT-JUSTIFIED) »  ITW 

ITEM  WHEN  TW  IS  TO  BE  UPDATED  WHERE  ITEM  IS  INDEX  ON  TIME  (OR  SUBCASE). 
USE  BLANK  CARD  IF  TW  IS  TO  REMAIN  UNCHANGED  FOR  ALL  REMAINING  TIMES  OR 
IF  NO  MORE  TIMES  ARE  TO  BE  CONSIDERED. 


CARD  SET  5#  FORMAT(8E10.4>  *****  USED  ONLY  FOR  KR(9)=0  AND  KR(ll)s0  OR  1  *** 

FIELD  1  (COLUMNS  1-10) #  FIELD  2  (COLUMNS  11-20)#  ETC.#  8  TO  A  CARD# 
FW(L#i)»  LSI# NS  (SEE  CARD  3  OF  GROUP  3) 

WALL  STREAM-FUNCTION  (NEGATIVE  FOR  MASS  ADDITION) 


CARD  6#  FORMAT (12)  *****  USED  ONLY  IF  CARD  SET  5  IS  USED  ***** 

FIELD  l  (COLUMNS#  1-2#  RIGHT-JUSTIFIED) »  IFW 

ITEM  WHEN  FW  IS  TO  BE  UPDATED  WHERE  ITEM  IS  INDEX  ON  TIME  (OR  SUBCASE). 
USE  BLANK  CARD  IF  FW  IS  TO  REMAIN  UNCHANGED  FOR  ALL  REMAINING  TIMES  OR 
IF  NO  MORE  TIMES  ARE  TO  BE  CONSIDERED. 
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CARO  SET  7#  FORMAT(8Ei0.4)  *****  USED  ONLY  FOR  KR(9)=1  AND  KR(11>=0  OR  1  *** 

FIELD  1  (COLUMNS  1-10)*  FIELD  2  (COLUMNS  11-20)*  ETC.*  8  TO  A  CARD* 
RHOVW(L*l)»  L=1*NS  (SEE  CARD  3  OF  GROUP  3) 

TOTAL  MASS  FLUX  AT  THE  MALL  (LB/SEC  FT2  OR  DIMENSIONLESS  FOR  KR(8)=0  OR 
1*  RESPECTIVELY*  POSITIVE  FOR  MASS  INJECTION) 


CARD  8*  F0RMAT(!2)  *****  USED  ONLY  IF  CARD  SET  7  IS  USED  ***** 

FIELD  1  (COLUMNS  1-2*  RIGHT- JUSTIFIED) *  IRHOVW 

ITEM  MHEN  RHOVW  IS  TO  BE  UPDATED  MHERE  ITEM  IS  INDEX  ON  TIME  (OR 
SUBCASE)*  USE  BLANK  CARD  IF  RHOVW  IS  TO  REMAIN  UNCHANGED  FOR  ALL  RE¬ 
MAINING  TIMES  OR  IF  NO  MORE  TIMES  ARE  TO  BE  CONSIDERED. 


CARD  SET  9*  FORMAT(8E10.4)  ****  USED  ONLY  FOR  KR(7)=0  OR  2*  KR(9)=0  OR  1* 

AND  KR(ll)sO  OR  1. 

FIELD  1  (COLUMNS  1-10)*  FIELO  2  (COLUMNS  11-20)*  ETC.*  8  TO  A  CARD* 

DO  KS1»NSPM1  SPW(K*L*1) »  Lsl»NS  NSPM1=NSP-1  (SEE  CARD  1  OF  GROUP 
2  AND  CARD  3  OF  6R0UP  3) 

WALL  ELEMENTAL  MASS  FRACTIONS  IN  THE  SAME  ORDER  THAT  THEY  ARE  SELECTED 
FROM  THE  THERMODYNAMIC  DATA  (SEE  DISCUSSION  UNDER  GROUP  13) 


CARD  10*  F0RMAT(I2)  *****  USED  ONLY  IF  CARD  SET  9  IS  USED  ***** 

FIELD  1  (COLUMNS  1-2*  RIGHT- JUSTIFIED) *  ISPW 

ITEM  WHEN  THE  SPW  APE  TO  BE  UPDATED  WHERE  ITEM  IS  INDEX  ON  TIME  (OR  SUB¬ 
CASE).  USE  BLANK  CARD  IF  THE  SPW  ARE  TO  REMAIN  UNCHANGED  FOR  ALL  RE¬ 
MAINING  TIMES  OR  IF  NO  MORE  TIMES  ARE  TO  BE  CONSIDERED. 


CARD  SET  11*  FORMAT(8EiO»4)  ****  USED  ONLY  FOR  KR(7)=0  OR  2  WITH  KR(9)=2  AND 

KR(ll)sO*l*  OR  2*  OR  WITH  ANY  OF  THE  KR9=2 

FIELD  1  (COLUMNS  1-10)*  FIELD  2  (COLUMNS  11-20)*  ETC.*  8  TO  A  CARD* 

DO  N=l*3  FLUXJ(N*L»1)*  L=1*NS  (SEE  CARD  3  OF  GROUP  3) 

WALL  MASS  FLUXES  OF  BOUNDARY-LAYER  EDGE  GAS*  PYROLYSIS  GAS*  AND  CHAR* 
RESPECTIVELY  (SEE  GROUP  11*  CARDS  2*3*  ...»  FIELD  4)»  LB/SEC  FT2  OR 
DIMENSIONLESS  FOR  KR(8)  =  0  OR  1*  RESPECTIVELY.  POSITIVE  FOR  MASS 
INJECTION  WHEN  KR(8)  s  0  AND  NE6ATIVE  FOR  MASS  INJECTION  WHEN  KR(8)=1. 
READ  IN  ALL  ED6E  GAS  VALUES*  THEN  START  PYROLYSIS  GAS  VALUES  ON  A  NEW 
CARD  AND  READ  ALL  PYROLYSIS  GAS  VALUES*  ETC. 
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CARO  12  F0RMATU2)  *****  USED  ONLY  IF  CARO  SET  11  IS  USED  ***** 

FIELD  1  (COLUMNS  1-2*  RIGHT-JUSTIFIED)*  IFLUXJ 

ITEM  WHEN  THE  FLUXJ  ARE  TO  BE  UPDATED  WHERE  ITEM  IS  INDEX  ON  TIME  (OR 
SUBCASE)#  USE  BLANK  CARD  IF  THE  FLUXJ  ARE  TO  REMAIN  UNCHANGED  FOR  ALL 
REMAINING  TIMES  OR  IF  NO  MORE  TIMES  ARE  TO  BE  CONSIDERED. 


GROUPS  17.18*19*  •••*  (13+NITEM)  SEE  CARD  1  OF  GROUP  3  (CALLED  FROM  REFCON) 


UP0ATIN6  INFORMATION  FOR  STREAMWISE  DISTRIBUTIONS  OF  EDGE  AND 
WALL  CONDITIONS  FOR  TIMES  2*3*4*  #*#*  NITEM.  NO  ADDITIONAL  INFOR¬ 
MATION  AFTER  GROUP  16  IS  REQUIRED  FOR  NITEM  =  1  OR  IF  CARDS  2*4*6*#.. 
OF  GROUPS  15  ANO  16  ARE  ALL  BLANK.  DATA  ARE  SUPPLIED  FOR  EACH  SET 
AND  ONLY  EACH  SET  OF  STREAMWISE  INFORMATION  FOR  WHICH  THE  CURRENT 
TIME  HAS  BEEN  DESIGNATED  IN  A  PREVIOUS  GROUP  (E.G,  CONSIDER  TW  AT 
TIME  4  (GROUP  19).  TW  OAtA  (I.E.*  CARD  SET  3  AND  CARD  4  OF  GROUP  16 
WOULD  BE  REQUIRED  IF  A  4  HAS  APPEARED  IN  CARD  4  OF  GROUP  18*17  OR  16) 
ALL  OATA  REQUIRED  AT  TIME  2'  (IF  ANY)  ARE  SUPPLIED.  FIRST  (GROUP  17). 
THEN  FOR  TIME  3  (GROUP  18) »  TIME  4  (GROUP  19) »  ETC.  FOR  EACH  TIME* 
THESE  DATA  ARE  SUPPLIED  IN  THE  SAME  ORDER  AS  LISTED  UNDER  GROUPS  15 
AND  16.  FORMATS  ARE  THE  SAME  AS  IN  GROUPS  15  AND  16.  IN  PARTICULAR* 
IT  SHOULD  BE  NOTED  THAT  EACH  ODD-NUMBERED  CARD  MUST  BE  FOLLOWED  BY 
THE  APPROPRIATE  EVEN-NUMBERED  CARO  SIGNIFYING  FOR  WHAT  TIME  (IF  ANY) 
DATA  OF  THIS  SAME  TYPE  IS  TO  BE  UPDATED  AGAIN. 


LAST  GROUP  (CALLEO  FROM  BLIMP) 


CARD  1  FORMAT (Al) 

FIELD  1  (COLUMN  1)»  JAST 

THE  PURPOSE  OF  THIS  ENTRY  IS  TO  PERMIT  A  TEST  ON  WHETHER  OR  NOT  A  NEW 
CASE  IS  TO  FOLLOW.  IN  THE  EVENT  A  CASE  DOES  NOT  CONVERGE  IN  THE  ALLOTTED 
NUMBER  OF  ITERATIONS*  ANY  REMAINING  CARDS  FOR  THAT  CASE  ARE  READ  AND 
THEN  IGNORED  UNTIL  A  COMMA  (*)  OR  A  PERIOD  (.)  IS  ENCOUNTERED  IN 
COLUMN  1.  A  COMMA  SIGNIFIES  ANOTHER  CASE*  WHILE  A  PERIOD 
SIGNIFIES  THAT  THERE  ARE  NO  CASES  TO  FOLLOW. 
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SECTION  IV 
OUTPUT 

The  BLIMP  program  provides  a  complete  set  of  output  data  for  each  boundary 
layer  solution  including  such  global  quantities  as  the  various  boundary  layer 
thicknesses,  wall  heat  and  mass  fluxes,  and  transfer  coefficients  plus  profiles 
of  state  and  transport  properties  as  well  as  profiles  of  the  primary  variables 
(e.g.,  f,  f'  f").  This  output  is  provided  automatically  for  each  converged 
boundary  layer  solution  and  can  also  be  obtained  after  each  iteration  if  re¬ 
quested  by  KR (4)  =  1.  In  either  event,  a  one-line-per-iteration  output  of  the 
boundary  layer  iteration  is  always  provided.  In  addition,  most  of  the  input  data 
are  output  as  are  the  results  of  the  boundary  layer  edge  expansion.  The  specific 
output  of  these  various  types  are  presented  in  Subsections  1~7  below.  Along  with 
the  title  appearing  in  the  output  are  presented  the  Fortran  variable,  dimensions, 
and  a  brief  definition.  Sample  output  for  several  cases  are  presented  in  Sec¬ 
tion  V. 

Additional  debug  output  can  be  obtained  by  use  of  nonzero  values  of  KR(15) 
through  KR(20)  or  when  chemistry  nonconvergences  (or  impending  nonconvergences) 
occur.  This  is  described  in  Section  VI. 
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1.  SUMMARY  OF  STANDARD  OUTPUT 


STANDARD  OUTPUT  OF  BOUNDARY  LAYER  INPUT  DATA 
STANOARD  OUTPUT  OF  PROPERTY  INPUT  DATA 

STANDARD  CHEMISTRY  OUTPUT  FOR  BOUNDARY  LAYER  EDGE  EXPANSION 
SUMMARY  TABLE  OF  EDGE  CONDITIONS 

ONE-LINE-PER-ITERATION  OUTPUT  OF  BOUNDARY  LAYER  ITERATION 
STANDARD  OUTPUT  FOR  BOUNDARY  LAYER  SOLUTION 


2.  STANDARD  OUTPUT  OF  BOUNOARY  LAYER  INPUT  DATA  (CALLED  FROM  RECASE) 


TITLE  APPEAR¬ 
ING  IN  OUTPUT 

FORTRAN 

VARIABLE 

UNITS 

DEFINITION 

IDENTIFICA¬ 

TION 

IDENT 

SEE 

FORTRAN 

VARIABLES 

LIST 

CASE  TITLE 

CASE 

SEE 

FORTRAN 

VARIABLES 

LIST 

CONTROL 

NUMBERS 

KR  ( I )  ♦ 
I=l»20 

SEE 

FORTRAN 

VARIABLES 

LIST 

U/UE  TO 

NORM.  ETA 

CBAR 

SEE 

FORTRAN 

VARIABLES 

LIST 

NODAL  PT.  AT 
WHICH  ETA 
NORMALIZED 

KAPPA 

SEE 

FORTRAN 

VARIABLES 

LIST 

ETA  VALUES  ETA < I). 1=1 » 

NETA 


BOUNDARY  LAYER  NORMAL  COORDINATE  DEFINED 
BY  EQ<33>  OF  NASA  CR-1062 
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TITLE  APPEAR-  FORTRAN 
ING  IN  OUTPUT  VARIABLE 


NOSE  RADIUS  RAONO 
(FOR  SPHERE 
BODIES  ONLY) 

CONE  HALF  CONE 

ANGLE  (FOR 
CONIC  BODIES 
ONLY) 

SURFACE  EMISC  OR 

EMITTANCE  EMIST 
(IF  KR(9) 

OR  ANY  OF 
THE  KR9(  ) 

=3»4*5*6) 

ENTHALPY  OF  HCARB  OR 
CHAR  AT  REF-  HTEF 
ERENCE  TEMP¬ 
ERATURE  (IF 
KR(9)  OR  ANY 
OF  THE  KR9(  ) 

=  4 

ENTHALPY  OF  HPG 
PYROLYSIS 
GAS  (IF  KR 
(9)  OR  ANY 
OF  THE  KR9 
(  )=  4 


CASE  (OR 
TIME*SEC) 

TIME(I) *Isi* 
NITEM 

SEE  FORTRAN  VARIABLES  LIST 

TOTAL 

ENTHALPY 

GE(I) *1*1* 
NITEM 

BTU/LB 

TOTAL  ENTHALPY  FOR  EACH  CASE  (OR  TIME) 

TOTAL 

PRESSURE 

PTET(I)*tsi» 

NITEM 

ATM 

TOTAL  PRESSURE  FOR  EACH  CASE  (OR  TIME) 

INCIDENT 

RAD  FLUX 

RADFL(I) » 
IS1*NITEM 

BTU/SEC- 
SQ  FT 

REFERENCE  INCIDENT  RADIATION  FLUX 
(USUALLY  STAGNATION  POINT  VALUE) 

MIX  LENGTH 
CONST  (IF 
KR(7)  =  2) 

ELCON 

SEE  INPUT  INSTRUCTIONS*  GROUP  6 

UNITS  DEFINITION 

FT  SEE  INPUT  INSTRUCTIONS*  GROUP  5 

DEG  SEE  INPUT  INSTRUCTIONS*  GROUP  5 

SEE  INPUT  INSTRUCTIONS*  GROUP  6 

BTU/LB  SEE  INPUT  INSTRUCTIONS*  GROUP  6 

BTU/LB  SEE  INPUT  INSTRUCTIONS*  GROUP  6 
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TITLE  APPEAR-  FORTRAN  UNITS  DEFINITION 

ING  IN  OUTPUT  VARIABLE 

SUBLAYER  YAP  SEE  INPUT  INSTRUCTIONS*  GROUP  8 

CONST  YA+ 

(IF  KR(7)*2> 

CLAUSER  CLNUM  SEE  INPUT  INSTRUCTIONS*  GROUP  8 

NUMBER  (IF 
KR<7)  =  2) 

TURBULENT  SCT  SEE  INPUT  INSTRUCTIONS*  GROUP  8 

SCHMIDT 
NUMBER  (IF 
KR(7)  s  2) 

TURBULENT  PRT  SEE  INPUT  INSTRUCTIONS*  GROUP  8 

PRANDTL 
NUMBER  (IF 
KR(7)  =  2) 

TRANSITION  RETR  SEE  INPUT  INSTRUCTIONS*  GROUP  8 

MOM.  THICK. 

RE  (IF  KR(7) 

=  2) 


3.  STANDARD  OUTPUT  OF  PROPERTY  INPUT  DATA  (CALLED  FROM  INPUT) 


TITLE  APPEAR-  FORTRAN  UNITS  DEFINITION 

ING  IN  OUTPUT  VARIABLE 


AT.  NO.  KAT(J)*JS1*IS  ATOMIC  NUMBER 

ELEMENT  ( ATAU) ♦ ATB< J> *  ELEMENT  NAME 

ATC( J) * J*l» IS) 

ATOMIC  WT  WAT( J) »  ATOMIC  WEIGHT 

J=1»!S 

RELATIVE  (TK(U»D*  ATOMIC  GRAM  ATOMS  OF  ELEMENT  J  PER  UNIT 
ELEMENTAL  1*1*7)  WTS/UNIT  MASS  IN  EACH  COMPONENT  OF  EACH 

COMPOSITIONS  J=1»!S  MASS  MATERIAL  COMBINATION 

FOR  COMPON¬ 
ENTS  1*2*3 
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TITLE  APPEAR-  FORTRAN  UNITS  DEFINITION 

ING  IN  OUTPUT  VARIABLE 


CARD  1  OF  (ALPTOO *  SEE  FORTRAN  VARIABLES  LIST 

THERMO  DATA  JAT<K>» 

FOR  FIRST  K=l*7)* 

SPECIES  AMOA'AMOB 

CAROS  2  AND  (RA(K) »CH(KK»K)  SEE  FORTRAN  VARIABLES  LIST 

3  OF  THERMO  »RC<KK»K)»RD 
DATA  FOR  (KK'K)'RE(KK’ 

FIRST  K) »RF(KK»K) » 

SPECIES  TU<KK*K) »KPHA 

<K>»K=1»2)» 

FF(KK) 


REPEAT  CARDS  1*2  AND  3  OF  THERMO  OATA  FOR  ALL  SPECIES 


ELEMENT 

ATA( I) » 

ATB(I  )» 

ATC( I)  * 

I=1#IS 

ELEMENTS 

BASE  SP 

IC(J) »IM(I) * 
l-l*  IS 

BASE  SPECIES  CHOSEN  FOR 
EACH  ELEMENT 

SIGMA 

SIGMA 

SEE  INPUT 

INSTRUCTIONS* 

GROUP 

11 

EPOVRK 

EPOVRK 

SEE  INPUT 

INSTRUCTIONS* 

GROUP 

11 

MREF 

BASMOL 

SEE  INPUT 

INSTRUCTIONS* 

GROUP 

11 

FITMOL 

FITMOL 

SEE  INPUT 

INSTRUCTIONS* 

GROUP 

11 

FFA 

FFA 

SEE  INPUT 

INSTRUCTIONS* 

GROUP 

11 

FITGMW 

FITGMW 

SEE  INPUT 

INSTRUCTIONS* 

GROUP 

11 

GGA 

GGA 

CONSTANT  USED  IN  TRANSPORT  PROPERTIES 
CALCULATIONS*  ALWAYS  0*4540  IN  THIS 
VERSION  OF  THE  PROGRAM 

SPECIES 

FAMOA(KK) » 
FAMOB(KK) » 

KK  S  1»N 

SPECIES  NAMES 

F(  I) 

FF(KK) *  KKS 

it  n 

MOLECULAR  DIFFUSION  CORRELATION 
COEFFICIENTS  DESCRIBED  IN 

REFERENCE  4. 

G(I) 

GG(KK) t  KK= 

1.  N 

QUANTITY  USED  IN  THE  BUDDENBERG- 
WILKE  MIXTURE  FORMULA  FOR  VISCOSITY 

AS  DISCUSSED  IN  REFERENCE  5. 
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TITLE  APPEAR-  FORTRAN  UNITS  DEFINITION 

INS  IN  OUTPUT  VARIABLE 


KINETIC  M#MS1#MT  KINETIC  REACTION  NUMBER 

REACTION 
(IF  MT  ST  0) 


REACTANT  (FAM0A(I)»FAM08  SEE  FORTRAN  VARIABLES  LIST 

COEFFS  ( I ) » (RMU( I *M) # 

(IF  MT  ST  0)  MS1»MT)*IS1» 

IS) 


PRODUCT  (FAMOA(I) »FAM0B  SEE  FORTRAN  VARIABLES  LIST 

COEFFS  (I) » (PMU(I»M) # 

(IF  MT  ST  0)  M=l»MT>»I=l» 

IS) 


PRE-EXPONENT  (FKF(M)»MS1# 
FACTOR  MT)»I=1»IS 

(IF  MT  ST  0) 


LB-MOLES  SEE  FORTRAN  VARIABLES  LIST 
OF  REACT- 
ANT/SEC- 
SQ  FT 


ACTIVATION  (EAK(M)#M=1#  CALORIES/  SEE  FORTRAN  VARIABLES  LIST 

ENERSY  MT).lsl#IS  6M-M0LE 

(IF  MT  ST  0) 


REACTION  (EXK(M)»Mei,  SEE  FORTRAN  VARIABLES  LIST 

OROER  MT)»lsl»JS 

(IF  MT  ST  0) 


4*  standard  chemistry  output  for  boundary  layer  edse  expansion  (CALLED 

FROM  EQUID 


TITLE  APPEAR- 
INS  IN  OUTPUT 

FORTRAN 

VARIABLE 

UNITS 

DEFINITION 

CP-FROZEN 

CPF 

CAL/SM- 
DE6  K 

SEE  FORTRAN 

VARIABLES 

LIST 

CP-EOUIL 

CSP 

CAL/SM- 
0E6  K 

SEE  FORTRAN 

VARIABLES 

LIST 

DLNM/DLNT 

ALF 

SEE  FORTRAN 

VARIABLES 

LIST 

DLNM/DLNP 

BETH 

SEE  FORTRAN 

VARIABLES 

LIST 

SAMMA 

SAM 

SEE  FORTRAN 

VARIABLES 

LIST 
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TITLE  APPEAR¬ 
ING  IN  OUTPUT 

FORTRAN 

variable 

UNITS 

DEFINITION 

TEMP 

T 

DEG  K 

SEE  FORTRAN  VARIABLES  LIST 

PRES 

P 

ATM 

SEE  FORTRAN  VARIABLES  LIST 

MOL  WT 

WM 

SEE  FORTRAN  VARIABLES  LIST 

RELATIVE 
MASSES  OF 
COMPONENTS 
1'2  AND  3 

W 

MEANINGLESS  FOR  BOUNDARY  LAYER  EDGE 
CALCULATIONS 

ENTHALPY 

HIP 

CAL/GM 

SEE  FORTRAN  VARIABLES  LIST 

ENTROPY 

SIP 

CAL/GM- 
DEG  K 

SEE  FORTRAN  VARIABLES  LIST 

DENSITY 

RHR 

LB/CU  FT 

SEE  FORTRAN  VARIABLES  LIST 

VEL 

VEL 

FT/SEC 

SEE  FORTRAN  VARIABLES  LIST 

MACH 

VMACH 

SEE  FORTRAN  VARIABLES  LIST 

AREA 

AREA 

SQ  FT/LB/ 
SEC 

MEANINGLESS  FOR  BOUNDARY  LAYER  EOGE 
CALCULATIONS 

SPECIES 

FAMOA(I) »FAMOB 

SEE  FORTRAN  VARIABLES  LIST 

MOLE  FR. 

VN(I).I=X»N 

SEE  FORTRAN  VARIABLES  LIST 

5.  SUMMARY 

TABLE  OF  EOGE 

CONDITIONS 

(CALLED  FROM  REFCON) 

TITLE  APPEAR¬ 
ING  IN  OUTPUT 

FORTRAN 

VARIABLE 

UNITS 

DEFINITION 

DISTANCE 

S(I)tI=l'NS 

FT 

SEE 

FORTRAN  VARIABLES 

LIST 

ROKAP 

ROKAP ( I ) * l-lt 
NS 

FT 

SEE 

FORTRAN 

VARIABLES 

LIST 

XI 

XI(I)»I=I»NS 

(LB/SEC) 

SEE 

FORTRAN 

VARIABLES 

LIST 

**2 
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TITLE  APPEAR-  FORTRAN  UNITS  DEFINITION 

ING  IN  OUTPUT  VARIABLE 


PRESSURE  PRE(D»I=1*NS  SEE  FORTRAN  VARIABLES  LIST 

RATIO 

STATIC  PE(I»1)»I=1.  ATM  SEE  FORTRAN  VARIABLES  LIST 

PRESSURE  NS 

EDGE  UEU)»I=1»NS  FT/SEC  SEE  FORTRAN  VARIABLES  LIST 

VELOCITY 

BETA  BETAM(I)»Isi.NS  SEE  FORTRAN  VARIABLES  LIST 

INCIDENT  RADSn>»I=l»  BTU/SEC-  SEE  FORTRAN  VARIABLES  LIST 

RAD.  FLUX  NS  SO  FT 

ENTROPY  DROP  OSIP(I).I=l»  BTU/LB-  SEE  FORTRAN  VARIABLES  LIST 
NS  DEG  R 

WALL  ENTH-  HW(I.1).I=1.  BTU/LB  SEE  FORTRAN  VARIABLES  LIST 

ALPY  (IF  NS 

KR(U)sl) 

WALL  TEMP.  TW(I.l)  »I-1»  DEG  R  SEE  FORTRAN  VARIABLES  LIST 

(IF  KR(9)S3  NS 

OR  5  OR  IF 
KR(9)sO»1.2 
WITH  KR(U> 

SO) 

WALL  STREAM  FWU.l) .I=1»NS  SEE  FORTRAN  VARIABLES  LIST 

FUNCTION 
(IF  KR(9)S0) 

MASS  FLUX  RHOVW( I » 1)  *  LB/SEC-  SEE  FORTRAN  VARIABLES  LIST 

(IF  KR(9)S2  isi.NS  SQ  FT 

AND  KR(8)S0) 

NORMALIZED  RHOVW(I.l).  SEE  FORTRAN  VARIABLES  LIST 

MASS  FLUX  ISI.NS 

(IF  KR(9)s2 
AND  KR(8)si) 

ELEMENTAL  (SPW(K. I . 1) . is  SEE  FORTRAN  VARIABLES  LIST 

MASS  FRAC-  I*NS)*KSl. 

TION  (IF  NSPM1 

KR(9)so  OR  l) 

COMP  FLUX  (FLUXU(K»I»1).  LB/SEC-  SEE  FORTRAN  VARIABLES  LIST 

(IF  KR(9)S2  isi.NS) »  SQ  FT 

AND  KR(8)sO)  K=1.3 
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TITLE  APPEAR-  FORTRAN  UNITS  DEFINITION 

ING  IN  OUTPUT  VARIABLE 


NORMALIZED  <FLUXJ(K»I»1) #  SEE  FORTRAN  VARIABLES  LIST 

COMP  FLUX  IS1»NS>» 

(IF  KR(9)S2  K=lf 3 
AND  KR(0)=1> 


6.  ONE-LINE-PER-ITERATION  OUTPUT  OF  BOUNDARY  LAYER  ITERATION  (CALLED 
FROM  I TER AT) 


TITLE  APPEAR¬ 
ING  IN  OUTPUT 

FORTRAN 

VARIABLE 

UNITS 

DEFINITION 

ITS 

ITS 

ITERATION  NUMBER 

TIME 

TIMD 

SECONOS 

ELAPSED  TIME  SINCE  BEGINNING 

SOLUTION  AT  THIS  STATION 

ALPH 

ALPH 

NORMALIZING  PARAMETER  IN  ETA  DIRECTION 

FPPW 

FPPW 

F(3»1)/ALPH**2*  SHEAR  FUNCTION  AT  WALL 

DAMP 

EASE 

DAMPING  FACTOR  APPLIED  UNIFORMLY  TO  ALL 
CORRECTIONS 

MAX  LINEAR 
ERROR 

ELMM 

MAXIMUM  LINEAR  ERROR  (APPROACHES  ZERO 
WHEN  DAMPING  FACTOR  APPROACHES  UNITY) 

MAX  ERROR  IN 
MOMENTUM 
EQUATIONS 

IFNLM»FNLEM 

INDICE  OF  MOMENTUM  EQUATION  WITH  MAXIMUM 
ERROR  (I=i  AT  WALL)  AND  VALUE  OF  ERROR 

MAX  ERROR  IN 
ENERGY 
EQUATIONS 

IGNLM'GNLEM 

BTU/LB 

INDICE  OF  ENERGY  EQUATION  WITH  MAXIMUM 
ERROR  (151  AT  WALL)  AND  VALUE  OF  ERROR 

MAX  ERROR  IN 
SPECIES 
EQUATIONS 

(ISPNLM(K) 
t SPNLEM 
(K)»K=1» 
NSPMl) 

FOR  EACH  BASE  SPECIES*  INDEX  OF  SPECIES 
EQUATION  WITH  MAXIMUM  ERROR  (Isl  AT 
WALL)  AND  VALUE  OF  ERROR 
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7.  STANDARD  OUTPUT  FOR  BOUNDARY  LAYER  SOLUTION  (CALLED  FROM  OUTPUT) 


TITLE  APPEAR¬ 
ING  IN  OUTPUT 

FORTRAN 

VARIABLE 

UNITS 

DEFINITION 

alpha 

ALPH 

SEE  FORTRAN  VARIABLES  LIST 

XI 

XI ( IS) 

(LB/SEC) 

**2 

SEE  FORTRAN  VARIABLES  LIST 

ROKAP 

ROKAP (IS) 

FT 

SEE  FORTRAN  VARIABLES  LIST 

PRESSURE 

PE( IS# i) 

ATM 

SEE  FORTRAN  VARIABLES  LIST 

EDGE 

VELOCITY 

UE(IS) 

FT/SEC 

SEE  FORTRAN  VARIABLES  LIST 

BETA 

BETA 

SEE  FORTRAN  VARIABLES  LIST 

FLUX 

NORMALIZING 

PARAMETER 

-1./C3 

LB/SEC- 
SQ  FT 

FLUX  NORMALIZING  PARAMETER  DEFINED  BY 
EQ(44)  OF  NASA  CR-1062 

DIFFUSIONAL 
HEAT  FLUX 

-WALLG/C3 

BTU/SEC- 
SQ  FT 

DIFFUSIONAL  HEAT  FLUX  TO  THE  WALL  GIVEN 
BY  EG(49)  OF  NASA  CR-I062 

TOT  ENTH 

HEAT  FLUX 

-(WALL<^G(l#l> 
*RHOVW( IS# i) 
)/C3 

BTU/SEC- 
SO  FT 

DIFFUSIONAL  HEAT  FLUX  TO  THE  WALL  LESS 
THE  ENERGY  ASSOCIATED  WITH  THE  CONVEC¬ 
TION  OF  GAS  INTO  THE  BOUNDARY  LAYER 

RERAD  HEAT 
FLUX 

(.481E-12)* 

EMIS*(T(1)) 

**4, 

BTU/SEC- 
SQ  FT 

RATE  AT  WHICH  ENERGY  IS  RERADIATED  FROM 
THE  WALL#  FOR  KR(9)=3  THROUGH  6  ONLY 

QCOND 

QDIFU 

BTU/SEC- 
SQ  FT 

ENERGY  CONDUCTED  INTO  THE  WALL  DUE 

TO  TEMPERATURE  GRADIENT  IN  THE  GAS 

AT  THE  WALL#  DIFFUSIONAL  FLUX  NOT 
INCLUDED 

WALL  SHEAR 

SHEAR 

LB/SQ  FT 

SEE  FORTRAN  VARIABLES  LIST 

MECH  REM 

(W(2)+W(3)-RH0 

VW(IS#1))/C3 

LB/SEC- 
SQ  FT 

RATE  AT  WHICH  WALL  MATERIAL  IS  REMOVED 

IN  A  CONDENSED  STATE 

PYROL  GAS 
MASS  FLUX 

W(2)/C3 

LB/SEC- 
SQ  FT 

RATE  AT  WHICH  COMPONENT  2  (USUALLY 
PYROLYSIS  GAS)  IS  INJECTED  INTO 

BOUNDARY  LAYER 

CHAR  MASS 
FLUX 

W(3)/C3 

LB)SEC- 
SQ  FT 

RATE  AT  WHICH  COMPONENT  3  (USUALLY  CHAR) 
IS  INJECTED  INTO  BOUNDARY  LAYER  (INCL¬ 
UDING  CONDENSED  PHASE  REMOVAL) 
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TITLE  APPEAR¬ 
ING  IN  OUTPUT 

FORTRAN 

VARIABLE 

UNITS 

TOTAL  GAS 

MASS  FLUX 

RHOVW( IS* i ) 

/C3 

LB/SEC- 
SO  FT 

ELEMENTAL 

MASS  DIFF¬ 
USIVE  FLUXES 

VJKW( I) * I2l* 
NSP 

LB/SEC- 
SO  FT 

MOM  TRANS 
COEFF  * 
RH0*UE*CF/2 

CF 

LB/SEC- 
SQ  FT 

HEAT  TRANS 
COEFF  * 
RHO*UE*CH 

CH 

LB/SEC- 
SQ  FT 

BLOWING 
PARAMETER 
(BASED  ON 

CH)  FOR 

PYROL  GAS 

W(2)/(C3*CH) 

BLOWING 
PARAMETER 
(BASED  ON 

CH)  FOR  CHAR 

W(3)/(C3*CH) 

BLOWING 
PARAMETER 
(BASED  ON 

CH)  FOR 

TOTAL  GAS 

BLOW 

ELEMENTAL 

MASS  TRANS¬ 
FER  COEFFS* 
RH0E*UE*CM 

CM(I)'IS).* 

NSP 

LB/SEC- 
SQ  FT 

MOMENTUM 

THICKNESS* 

THETA 

THMOM 

FT 

DISPLACEMENT 

THICKNESS* 

DELSTAR 

DELST 

FT 

effective 

DELBD 

FT 

BODY 

DISPLACE 


DEFINITION 


RATE  AT  WHICH  GAS  IS  INJECTED  INTO  THE 
BOUNDARY  LAYER 

DIFFUSIVE  MASS  FLUXES  OF  ELEMENTS  (IR¬ 
RESPECTIVE  OF  MOLECULAR  CONFIGURATION) 
INTO  THE  BOUNDARY  LAYER  AT  THE  WALL 

SEE  FORTRAN  VARIABLES  LIST 


SEE  FORTRAN  VARIABLES  LIST 


PYROLYSIS  GAS  RATE  NORMALIZED  BY 
RH0E*UE*CH 


CHAR  RECESSION  RATE  NORMALIZED  BY 
RHOE*UE*CH 


SEE  FORTRAN  VARIABLES  LIST 


SEE  FORTRAN  VARIABLES  LIST 


SEE  FORTRAN  VARIABLES  LIST 


SEE  FORTRAN  VARIABLES  LIST 


EFFECTIVE  BODY  DISPLACEMENT  THICKNESS 
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TITLE  APPEAR¬ 
ING  IN  OUTPUT 

FORTRAN 

VARIABLE 

UNITS 

DEFINITION 

ENTHALPY 

THICKNESS* 

LAMBDA 

THENGY 

FT 

SEE  FORTRAN  VARIABLES  LiST 

REYNOLOS 
NUMBER  PER 
FOOT 

RHOE<IS)*U£ 

(IS)/VMUE(IS) 

1/FT 

MASS 

THICKNESSES 

THELEM(I)*I=1 

»NSP 

FT 

SEE  FORTRAN  VARIABLES  LIST 

DISTANCE 

FROM  WALL 

Y(  I )  # 1=1 *NETA 

FT 

ACTUAL  DISTANCE  FROM  BODY  MEASURED 
NORMAL  TO  SURFACE 

ETA 

ETA(I)*ALPH» 

I=1*NETA 

CONVENTIONAL  DEFINITION  OF  BOUNDARY 
LAYER  NORMAL  COORDINATE  DEFINED  BY 
(32)  OF  NASA  CR-1062 

EQ 

F 

FU»I)*IS1»NETA 

STREAM  FUNCTION 

FPUU/UE) 

F(2*I)/ALPH* 

2cl,NETA 

VELOCITY  RATIO 

FPP 

F(3»I)/ALPHO*2» 

I=1»NETA 

SHEAR  FUNCT^N  (DERIVATIVE  OF  VELOCITY 
RATIO  WITH  w  -VFCT  TO  CONVENTIONAL  ETA? 

SHEAR 

DUOS ( I ) 

IM*NETA 

LBF/FT**2 

LOCAL  SHEAR  STRL’SS 

TOTAL  ENTH¬ 
ALPY  »G 

6(1*1)* 

I=1»N£TA 

BTU/LB 

TOTAL  ENTHALPY 

GP 

6(2»I>/ALPH* 

I=1»NETA 

BTU/LB 

DERIVATIVE  OF  TOTAL  ENTHALPY  WITH 
RESPECT  TO  CONVENTIONAL  ETA 

GPP 

6(3*I>/ALPK**2 
» »-l*NETA 

STU/LB 

SECONO  DERIVATIVE  OF  TOTAL  ENTHALPY 
RESPECT  TO  CONVENTIONAL  ETA 

WITH 

STATIC 

ENTHALPY 

H<J* 

BTU/LB 

STATIC  ENTHALPY 

TEMP 

T<I> 

DEG  R 

STATIC  TEMPERATURE 

ELEC 

0ER(8> 

1/SEC 

ELECTRON  COLLISION  FREQUENCY 

COLL  FREQ 
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TITLE  APPEAR" 
ING  IN  OUTPUT 

FORTRAN 

VARIABLE 

UNITS 

DEFINITION 

DENSITY*RHO 

RHO( I ) t 

IS1?NETA 

LB/CU  FT 

DENSITY 

VlSCOSITY»MU 

VMUO* 

I=1»NETA 

LB/SEC-FT 

VISCOSITY 

RHO*MU/(RHOE 
*MUE) »C 

CADC ( I ) * 
I=1#NETA 

PRODUCT  OF  DENSITY  AND  VISCOSITY 
NORMALIZED  BY  THEIR  VALUES  AT  EDGE 

SPECIFIC 

HEAT 

CPBAR(I) t 
I=1»NETA 

BTU/LB- 
DEG  R 

FROZEN  SPECIFIC  HEAT 

THERMAL 

COND» lsl»NETA 

BTU/SEC- 
FT-DEG  R 

THERMAL  CONDUCTIVITY 

PRANDTL 

NUMBER 

PR(I)»I=1»NETA 

PRANDTL  NUMBER  BASED  ON  FROZEN  SPECIFIC 
HEAT 

MODIFIED 

SCHMIDT 

NUMBER 

SC(I)»I=1»NETA 

REFERENCE  SYSTEM  SCHMIDT  NUMBER  DEFINED 
BY  EG (46)  OF  NASA  CR-1062 

MOLECULAR 

WEIGHT 

VMWd)d=l»NETA 

MOLECULAR  WEIGHT 

RHOSQ*EPS/ 
RHOE  *  MUE 

EPSAd) 

I=1»NETA 

DIMENSIONLESS  EDDY  VISCOSITY 

MACH 

NUMBER 

ACH 

MACH  NUMBER 

ELEMENTAL  (SP(l*I»K)»lSl# 

FRACTIONS  NETA)»K=1»NSP 

AND  THEIR 

FIRST  ANO  (SP(2#I»K)/ALPH 

SECOND  DER-  »I=1»NETA)» 

IVATIVES  KS1»NSP 

WITH  RESPECT 

TO  ETA  (SP(3»I»K)/ALPH 

**2»I=1»NETA)> 

K=i»NSP 

MASS  FRACTIONS  OF  BASE  SPECIES  AND  THEIR 
FIRST  AND  SECOND  DERIVATIVES  WITH 
RESPECT  TO  ETA  (CONVENTIONAL  DEFINITION 
SEE  EG (32)  OF  NASA  CR-1062) 

MOLE  FRAC¬ 
TIONS 

(FR(j#I)d=l» 

NETA>*J=1* 

NSPEC 

MOLE  FRACTIONS 
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SECTION  V 
SAMPLE  CASES 

A  total  of  three  sample  cases  are  discussed  in  this  section.  Input  cards 
and  sample  output  for  each  case  are  shown  in  each  subsection. 

1.  SAMPLE  CASE  1  -  FLAT  PLATE  IN  AIR  BOUNDARY  LAYER 

The  first  sample  case  consists  of  a  cooled  nonablating  flat  plate  in  a 
supersonic  air  boundary  layer.  This  problem  is  perhaps  overly  simple  for  a  so¬ 
phisticated  nonsimilar  general  chemistry  program  such  as  this  one,  however  it 
does  illustrate  the  basic  features  of  the  program  in  a  direct  fashion.  A  non¬ 
similar  solution  is  called  for  on  a  planar  sharp  body  in  laminar  flow.  Wall  tem¬ 
perature  is  assigned  at  530°R  with  wall  mass  fluxes  set  to  zero  everywhere  along 
the  plate.  Two  cases  are  considered:  PQ  =  1.0  atmospheres  and  PQ  =  10.0  atmos¬ 
pheres.  Stagnation  enthalpy  is  1000  Btu/lb  for  both  cases.  Four  stations  along 
the  plate  are  analyzed  (1,  2,  6,  and  12  inches)  and  seven  nodes  are  assigned 
through  the  boundary  layer.  Only  two  elements  (N  and  0)  are  required  to  describe 
the  air  boundary  layer,  however,  five  candidate  species  (N,  0,  NO,  N2,  02)  are 
provided  in  the  thermochemical  data  tables.  For  both  cases  considered,  the  air 
is  assumed  to  expand  to  a  pressure  ratio  P/PQ  of  0.1278  corresponding  to  an  edge 
Mach  number  of  approximately  2.0. 
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a.  Input  cards  for  Sample  Case  Number  1 


10104300210002000000  NONABLATING  FLAT  PLATE  IN  AIR 

2 

2 

-1.  2. 

4 

.08333  .16667  .5  1,0 

7 

0.0  0.5  1.0  1,5  2.0  3.0  5.0 

5  0.8 

1.0  10.0 

1000.  1000. 

0.0  0.0 

100. 

2 

7NITR0GEN  14.008  -.765 
80XYGEN  16.000  -.235 


1700000000000  OJANAF  03/61  N 

112965+6  134370+5  486944+1  383516-4  958460+5  480900+2  500.  3000.1  0.N 

112965+6  134370+5  428957+1  240844-3-417273+6  480900+2  3000.  5000.1  0.N 

1800000000000  0JANAF  06/62  O 

595590+5  135220+5  497228+1  380768-5  154749+5  500960+2  500.  3000.1  0.0 

595590+5  135220+5  657489+1-224268-3-891782+7  500960+2  3000.  5000.1  0.0 

1718000000000  0JANAF  06/63  NO 

215800+5  227000+5  877623+1  899031-4-789656+6  688490+2  500,  3000.1  O.NO 

215800+5  227000+5  916260+1  657885-5-212519+7  688490+2  3000.  5000.1  O.NO 

2700000000000  OJANAF  03/61  N2 

000000-0  221650+5  862699+1  116090-3-103715+7  637650+2  500.  3000.1  0.N2 

000000-0  221650+5  984175+1-116232-3-612728+7  637650+2  3000,  5000.1  0.N2 

2800000000000  OJANAF  03/61  02 

000000-0  234460+5  804370+1  510872-3-152718+6  679730+2  500.  3000.1  0.02 

000000-0  234460+5  103071+2  290991-4-783079+7  679730+2  3000.  5000.1  0.02 


.1278  ,1278  .1278  .1278 

(3  blank  cards) 

530.  530.  530.  530. 

(5  blank  cards) 
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2.  SAMPLE  CASE  2  -  ABLATING  PHENOLIC  CARBON  FLAT  PLATE 

The  second  sample  case  is  the  solution  of  the  boundary  layer  flow  of  air 
over  an  ablating  phenolic  carbon  plate.  This  problem  utilizes  the  multicompo¬ 
nent,  general  chemistry  features  of  the  program  to  greater  advantage.  A  complete 
set  of  species  thermochemical  data  is  read  in  for  all  important  species  in  the 
C-H-O-N-e  system.  Wall  fluxes  of  the  ablating  material  are  prescribed,  as  is 
the  wall  temperature,  thereby  overriding  any  calculations  of  chemical  equilibrium 
at  the  surface.  Equal  diffusion  of  all  species  is  assumed  and  thermal  diffusion 
is  ignored  for  this  problem.  Solutions  at  six  stations  along  the  plate  were  re¬ 
quested,  and  a  total  of  13  nodes  through  the  boundary  layer  were  specified.  Stag¬ 
nation  conditions  for  this  problem  were  PQ  =  43.4  atmospheres  and  Hq  =  2100  Btu/ 
lb.  No  radiation  flux  was  specified. 

The  chemical  composition  data  for  this  problem  is  of  particular  interest. 
It  has  been  assumed  that  the  phenolic  carbon  plate  is  in  the  steady-state  abla¬ 
tion  mode.  It  is  apparent  then,  that  the  total  elemental  makeup  of  the  ablation 
products  as  they  are  injected  into  the  boundary  layer  must  be  the  same  as  that 
of  the  virgin  material.  For  phenolic  carbon,  it  has  been  assumed  that  0.326 
pounds  of  resin  are  used  per  pound  of  virgin  material  and  that  the  resin  can  be 
essentially  represented  by  the  molecule  CgHgO  (reference  8).  Thus,  every  pound 
of  virgin  material  consists  of  0.9236  pounts  of  C,  0.0209  pounds  of  H,  and  0.0554 
pounds  of  0.  This  elemental  composition  is  identical  to  that  of  the  total  abla¬ 
tion  products  for  steady  state  ablation.  The  easiest  way  to  input  this  ablation 
products  chemical  composition  with  the  BLIMP  code  is  to  assign  this  chemical 
makeup  to  the  "char"  and  delete  any  pyrolysis  gas  injection.  This  is  the  tech¬ 
nique  which  has  been  used  for  this  sample  problem  as  can  be  seen  below. 
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a.  Input  Cards  for  Sample  Case  Number  2 

10204320210202  GRAPHITE  PHENOLIC  FLAT  PLATE  TEST  CASE 

4 
1 

-1. 

6 

.03125  .36458 

13 

0.  ,024 

.80  1,4 

11  .95 

43.4 

2100. 

0.44  11.823  .019  .75  .75  250. 

1000. 

5  .431  23.4  32.  3.467  106.7 

1HYDR0GEN  1.00797  -.0209 

6  CARBON  12.011  -.9236 

7NITR0GEN  14,008  -.765 

8  OXYGEN  16.0  -.235  -.0554 

99  ELECTRON  0.00055 


3  6  0 

0  0  0 

0  0  0 

0000  OJANAF  12/60 

C3 

189670+6 

366220+5 

146441+2 

622536-4-168227+7  798410+2 

500. 

3000.1 

0.C3 

189670+6 

366220+5 

144782+2  792232-4-646877+6  798410+2 

3000. 

5000.1 

0.C3 

16  0 

0  0  0 

0  0  0 

0000  0JANAF  03/61 

C* 

000000-0 

144120+5 

586075+1 

953976-4-766621+6  121290+2 

500. 

3000.2 

100. c* 

000000-0 

144120+5 

485134+1 

291605-3  307202+7  121290+2 

3000. 

5000.2 

100. c* 

1  6  1 

8  0  0 

0  0  0 

0000  OJANAF  03/61 

CO 

-264170+5 

223570+5 

865040+1 

117021-3-898211+6  653700+2 

500, 

3000.1 

o.co 

-264170+5 

223570+5 

115496+2-424139-3-131563+8  653700+2 

3000. 

5000.1 

o.co 

1  1  0 

0  0  0 

0  0  0 

0000  OJANAF  12/60 

H 

521020+5 

134230+5 

480223+1 

555469-4  173095+6  388620+2 

500. 

3000.1 

O.H 

521020+5 

134230+5 

308752+1 

315025-3  929744+7  388620+2 

3000, 

5000.1 

O.H 

2  7  0 

0  0  0 

0  0  0 

0000  OJANAF  03/61 

N2 

000000-0 

221650+5 

862699+1 

116090-3-103715+7  637650+2 

500, 

3000.1 

0.N2 

000000-0 

221650+5 

984175+1-116232-3-612728+7  637650+2 

3000, 

5000.1 

0.N2 

2  8  0 

0  0  0 

0  0  0 

0000  OJANAF  03/61 

02 

000000-0 

234460+5 

804370+1 

510872-3-152718+6  679730+2 

500. 

3000,1 

0.02 

000000-0 

234460+5 

103071+2 

290991-4-783079+7  679730+2 

3000. 

5000.1 

0.02 

16  0 

0  0  0 

0  0  0 

0000  OJANAF  03/61 

C 

170886+6 

135500+5 

444433+1 

228125-3  409830+6  492870+2 

500, 

3000.1 

O.C 

170886+6 

135500+5 

412212+1 

261908-3  262886+7  492870+2 

3000, 

5000.1 

O.C 

1  1  1 

6  0  0 

0  0  0 

0000  OJANAF  03/61 

CH 

142006+6 

221300+5 

826079+1 

302211-3-100184+7  616120+2 

500, 

3000.1 

O.CH 

142006+6 

221300+5 

707091+1 

463281-3  552860+7  616120+2 

3000. 

5000*1 

O.CH 

1  1  1 

6  1  7 

0  0  0 

0000  OJANAF  03/61 

CHN 

312000+5 

355930+5 

137023+2 

552243-3-228955+7  758620+2 

500. 

3000.1 

O.CHN 

312000+5 

355930+5 

178895+2-295052-3-183671+8  758620+2 

3000, 

5000.1 

O.CHN 

1  1  1 

6  18 

0  0  0 

0000  OJANAF  03/61 

CHO 

-290000+4 

323670+5 

128033+2 

300638-3-201721+7  789830+2 

500. 

3000,1 

O.CHO 

.69792  1,1562  1.6979  2.3646 

.04  ,072  .120  .20  .32  ,48 

2.0  3.2  5.0 
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-290000+4  323670+5  103028+2  633312-3  121615+8  789830+2  3000.  5000.1  O.CHO 
2116000000000  OJANAF  12/62  CH2 

950000+5  329960+5  132894+2  413822-3-290273+7  684940+2  500.  3000.1  0.CH2 

950000+5  329960+5  140728+2  132150-3-239493+7  684940+2  3000.  5000.1  0.CH2 

3116000000000  OJANAF  12/62  CH3 

319400+5  434190+5  182763+2  401025-3-461203+7  786040+2  500.  3000,1  0.CH3 

319400+5  434190+5  204899+2-108028-3-114692+8  786040+2  3000.  5000.1  0.CH3 

4116000000000  OJANAF  03/61  CH4 

-178950+5  530790+5  230948+2  677896-3-755061+7  825970+2  500.  3000.1  0.CH4 

-178950+5  530790+5  236053+2  374323-3-368234+7  825970+2  3000.  5000.1  0.CH4 

1617000000000  OJANAF  12/62  CN 

109000+6  232490+5  655906+1  115326-2  479517+6  669760+2  500.  3000.1  O.CN 

109000+6  232490+5  988013+1  313855-3-649453+7  669760+2  3000.  5000.1  O.CN 

1628000000000  OJANAF  03/«l  C02 

-940540+5  365350+5  144559+2  210386-3-182392+7  798480+2  500.  3000.1  O.C02 

-940540* 5  365350+5  156451+2-381561-4-602768+7  798480+2  3000.  5000.1  O.C02 

2600000000000  OJANAF  9/61  C2 

198999+6  246990+5  776&12+1  696081-3  185649+6  685519+2  500.  3000.1  0.C2 

198999+6  246990+5  104162+2  566841-4-640205+7  685519+2  3000.  5000.1  0.C2 

1126000000000  ODUFF  BAUER  6/61  C2H 

117395+6  349620+5  134210+2  469100-3-187509+7  781140+2  500.  3000,1  0.C2H 

117395+6  349620+5  148516+2  109402-3-503862+7  781140+2  3000.  5000.1  0.C2H 

2126000000000  OJANAF  03/61  C2H2 

541900+5  482570+5  189960+2  769044-3-409039+7  849690+2  500.  3000.1  0.C2H2 

541900+5  482570+5  203952+2  389062-3-645297+7  849690+2  3000.  5000.1  0.C2H2 

2627000000000  OJANAF  3/61  C2N2 

738699+5  511070+5  188740+2  559856-3-896873+6  985479+2  500.  3000.1  0.C2N2 

738699+5  511070+5  208204+2  630229-5-346865+7  985479+2  3000.  5000.1  0.C2N2 

1136000000000  ODUFF  BAUER  6/61  C3H 

127703+6  489620+5  194464+2  508379-3-311933+7  928820+2  500.  3000.1  0.C3H 

127703+6  489620+5  199582+2  245687-3-632514+6  928820+2  3000.  5000.1  0.C3H 

2136000000000  ODUFF  BAUER  6/61  C3H2 

106522+6  635170+5  247444+2  992918-3-437596+7  104666+3  500.  3000,1  0.C3H2 

106522+6  635170+5  266623+2  364767-3-467730+7  104666+3  3000.  5000.1  0.C3H2 

3136000000000  ODUFF  BAUER  6/61  C3H3 

764850+5  709520+5  286929+2  766031-3-548098+7  113604+3  500.  3000.1  0.C3H3 

764850+5  709520+5  291672+2  456238-3-138601+7  113604+3  3000.  5000.1  0.C3H3 

1117000000000  OJANAF  12/60  HN 

792000+5  217660+5  823133+1  281555-3-126896+7  609290+2  500.  3000.1  O.HN 

792000+5  217660+5  765457+1  359853-3  180778+7  609290+2  3000.  5000.1  O.HN 

1118000000000  OJANAF  12/60  HO 

933000+4  214040+5  773193+1  394386-3-973561+6  613820+2  500.  3000.1  O.HO 

933000+4  214040+5  965144+1-443528-4-686115+7  613820+2  3000.  5000.1  O.HO 
2100000000000  OJANAF  03/61  H2 

000000-0  212100+5  711963+1  621950-3-712694+6  484650+2  500.  3000,1  0.H2 

000000-0  212100+5  681794+1  589854-3  265106+7  484650+2  3000.  5000,1  0.H2 

2117000000000  OJANAF  12/65  H2N 

400999+5  305799+5  975862+1  114401-2-518970+6  701580+2  500.  3000,1  0.H2N 

400999+5  305799+5  137419+2  229493-4-610024+7  701580+2  3000.  5000.1  0.H2N 

2118000000000  OJANAF  03/61  H20 

-577980+5  302010+5  112254+2  811397-3-260800+7  684210+2  500.  3000.1  0.H2O 

-577980+5  302010+5  157278+2-191548-3-173599+8  684210+2  3000.  5000,1  0.H20 

1700000000000  OJANAF  03/61  N 
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112965+6  134370+5  486944+1  383516-4  958460+5  480900+2  500,  3000,1  0.N 

112965+6  134370+5  428957+1  240844-3-417273+6  480900+2  3000.  5000.1  0.N 

1718000000000  OJANAF  06/63  NO 

215800+5  227000+5  877623+1  899031-4-789656+6  688490+2  500.  3000.1  O.NO 

215800+5  227000+5  91626G+1  657885-5-212519+7  688490+2  3000.  5000.1  O.NO 

1800000000000  OJANAF  06/62  0 

595590+5  135220+5  497228+1  380768-5  154749+5  500960+2  500.  3000.1  0.0 

595590+5  135220+5  657489+1-224268-3-891782+7  500960+2  3000.  5000.1  0.0 

4600000000000  OJANAF  12/60  C4 

242321+6  511230+5  205903+2  623436-4-257703+7  986760+2  500.  3000.1  0.C4 

242321+6  511230+5  210714+2-434895-4-404939+7  986760+2  3000.  5000.1  0.C4 

5600000000000  OJANAF  12/60  C5 

242374+6  656230+5  264706+2  806528-4-337125+7  111641+3  500.  3000.1  0.C5 

242374+6  656230+5  271156+2-580271-4-543183+7  111641+3  3000.  5000.1  0.C5 

1  99  00000000000  OCONVAIR  ZPH-122  12/61  E- 

+149010+5+498851+1-272800-5-135900+6+164558+22000,  10000.1  E- 

+149010+5+498851+1-272800-5-135900+6+164558+22000.  10000.1  E- 

16- 1  99  000000000  OCONVAIR  ZPH-122  12/61  C+ 

+428985+6+150120+5+489657+1+180700-4+340000+5+484232+22000.  10000.1  C+ 

+428985+6+150120+5+489657+1+180700-4+340000+5+484232+22000.  10000.1  C+ 

17- 1  99  000000000  OCONVAIR  ZPH-122  12/61  N+ 

+446641+6+151310+5+50l751+l+( 17100-4-1841^0+7+496847+22000.  10000.1  N+ 

+446641+6+151310+5+501751+1+617100-4-184100+7+496847+22000.  10000.1  N+ 

27-1  99  000000000  OCONVAIR  ZPH-122  12/61  N2+ 

+357258+6+251470+5+136508+2-327940-3-225630+8+656601+22000.  10000.1  N2+ 

+357258+6+251470+5+ 136508+2-327940-3-225630+8+65660 1+22000,  10000.1  N2+ 

281  99  000000000  OCONVAIR  ZPH-122  12/61  02- 

-205250+5+267570+5+ 11 1480+2-656700-4-77910JD+7+699149+22000.  10000.1  02- 

-205250+5+267570+5+111480+2-656700-4-779100+7+699149+22000.  10000.1  02- 

1618-1  99  0000000  OCONVAIR  ZPH-122  12/61  C0+ 

+294263+6+243830+5+893619+1+378000-4-150900+7+666595+22000.  10000.1  C0+ 

+294283+6+243830+5+893619+ 1+378000-4- 150900+7+666595+22000.  10000.1  C0+ 

1718-1  99  0000000  OCONVAIR  ZPH-122  12/61  N0+ 

+232919+6+241970+5+910216+1+277400-4-316600+7+654379+22000 .  10000.1  N0+ 

+232919+6+241970+5+910216+1+277400-4-316600+7+654379+22000.  10000.1  N0+ 

18- 1  99  000000000  OCONVAIR  ZPH-122  12/61  0+ 

+371999+6+149290+5+336271+1+306710-3+590200+7+484849+22000,  10000.1  0+ 

+371999+6+149290+5+336271+1+306710-3+590200+7+464849+22000.  10000. 1  0+ 

28  -1  99  00000000  0  OCONVAIR  ZPH-122  12/61  02+ 

+279695+6+248730+5+594789+1+626340-3+103500+8+677731+22000,  10000.1  02+ 
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3.  SAMPLE  CASE  3  -  ABLATING  REENTRY  VEHICLE  SHAPE 

Sample  problem  3  is  typical  of  the  type  of  problem  the  aerospace  thermo- 
dynamicist  must  solve  quite  often.  At  a  discrete  time  during  the  trajectory, 
the  nonsimilar  solution-  for  the  boundary  layer  flow  field  over  a  sphere-cone 
body  composed  of  a  nose  tip,  window,  and  heat  shield  material  is  desired.  For 
this  problem,  the  following  conditions  were  chosen: 

120.5  atmospheres 
5520  Btu/lb 
0.5  inches 
7.5° 

A  total  of  29  body  stations  were  required  to  describe  the  body  static  pressure 
distribution  accurately.  A  great  deal  of  care  is  used  in  selecting  these  points 
since  cubic  curve  fits  are  used  to  determine  pressure  gradients.  Large  gaps  in 
spacing  or  large  changes  in  pressure  between  body  stations  can  lead  to  very  poor 
curve  fits. 

Of  these  29  body  stations,  the  first  seven  were  assumed  to  include  a 
graphite  nose  tip,  the  next  four  spanned  a  boron  nitride  window  material,  and 
the  remaining  18  covered  the  carbon  phenolic  heat  shield  region.  Once  the  body 
stations  of  interest  had  been  selected,  the  automatic  radius  calculating  scheme 
for  card  group  5  could  be  used,  therefore  only  the  radii  at  the  nose,  tangent 
point,  and  final  body  station  were  specified,  with  a  minus  sign  on  the  nose  ra¬ 
dius  at  station  1.  The  rest  of  the  input  for  this  problem  is  similar  to  the  pre¬ 
vious  sample  problem.  Boron  was  added  to  the  list  of  elements,  and  the  virgin 
material  elemental  makeups  for  the  3  materials  were  assigned  to  the  char  category 
for  the  steady-state  ablation  approximation.  Sixty  thermochemical  species  were 
included  for  this  B-C-H-0-N-e~  system. 
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a.  Input  Cards  £c*-  Sample  Case  Number  3 
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1116000000000  OJANAF  03/61  CH 

142006+6  221300+5  826079+1  302211-3-100184+7  616120+2  500.  3000.1  O.CH 

142006+6  221300+5  707091+1  463281-3  552860+7  616120+2  3000.  5000,1  O.CH 

1116170000000  OJANAF  03/61  CHN 

312000+5  355930+5  137023+2  552243-3-228955+7  758620+2  500,  3000.1  O.CHN 

312000+5  355930+5  178895+2-295052-3-183671+8  758620+2  3000,  5000.1  O.CHN 
1116180000000  OJANAF  03/61  CHO 

-290000+4  323670+5  128033+2  300638-3-201721+7  789830+2  500.  3000.1  O.CHO 

-290000+4  323670+5  103028+2  633312-3  121615+8  789830+2  3000.  5000.1  O.CHO 

2116000000000  OJANAF  12/62  Ch2 

950000+5  329960+5  i32S94+2  413822-3-290273+7  684940+2  500.  3000.1  0.CH2 

950000+5  329960+5  140728+2  132150-3-239493+7  684940+2  3000,  5000.1  0.CH2 

3116000000000  OJANAF  12/62  CH3 

319400+5  434190+5  182763+2  401025-3-461203+7  786040+2  500.  3000,1  0.CH3 

319400+5  434190+5  204899+2-108028-3-114692+8  76G040+2  3000,  5000.1  0.CH3 

4116000000000  OJANAF  03/61  CH4 

“178960+5  53G790+5  230948+2  677896-3-755061+7  825970+2  500.  3000.1  0.CH4 

-178950+5  530790+5  236053+2  374323-3-368234+7  825970+2  3000.  5000.1  0.CH4 

1617000000000  OJANAF  12/62  CN 

109000+6  232490+5  653906+1  115326-2  479517+6  6697&0+2  500.  3000.1  O.CN 

109000+6  232490+5  988013+1  313655-3-649453+7  669760+2  3000.  5000.1  O.CN 

1628000GC0000  OJANAF  03/61  C02 

-940540+5  365350+5  144559+2  210386-3-182392+7  798480+2  500.  3000.1  0.CO2 

-940540+5  365350+5  156451+2-381561-4-602768+7  798480+2  3000.  5000.1  0.CO2 

2600000000000  OJANAF  9/61  C2 

198999+6  246990+5  776612+1  696081-3  185649+6  685519+2  500.  3000.1  0.C2 

198999+6  246990+5  104162+2  566841-4-640205+7  685519+2  3000.  5000.1  0.C2 

1126000000000  ODUFF  BAUER  6/61  C2H 

117395+6  349620+5  134210+2  469100-3-187509+7  781140+2  500.  3000.1  0.C2H 

117395+6  349620+5  148516+2  109402-3-503862+7  781140+2  3000.  5000.1  0.C2H 

2126000000000  OJANAF  03/61  C2H2 

541900+5  482570+5  189960+2  769044-3-409039+7  849690+2  500.  3000.1  0.C2H2 

541900+5  482570+5  203952+2  389062-3-645297+7  849690+2  3000.  5000.1  0.C2H2 

2627000000000  OJANAF  3/61  C2N2 

738699+5  511070+5  188740+2  559856-3-896873+6  985479+2  500.  3000.1  0.C2N2 

738699+5  511070+5  208204+2  630229-5-346865+7  985479+2  3000,  5000.1  0.C2N2 

1136000000000  ODUFF  BAUER  6/61  C3H 

127703+6  489620+5  194464+2  508379-3-311933+7  928820+2  500,  3000.1  0.C3H 

127703+6  489620+5  199582+2  245687-3-632514+6  928820+2  3000,  5000.1  0.C3H 

2136000000000  ODUFF  BAUER  6/61  C3H2 

106522+6  635170+5  247444+2  992918-3-437596+7  104666+3  500,  3000.1  0.C3H2 

106522+6  635170+5  266623+2  364767-3-467730+7  104666+3  3000,  5000.1  0.C3H2 

1117000000000  OJANAF  12/60  HN 

792000+5  217660+5  823133+1  281555-3-126896+7  609290+2  500,  3000.1  O.HN 

792000+5  217660+5  765457+1  359853-3  180778+7  60929C+2  3000,  5000.1  O.HN 

1118000000000  OJANAF  12/60  HO 

933000+4  214040+5  773193+1  394386-3-973561+6  613820+2  500.  3000.1  O.HO 


-]  1  1- 


* 


AFWL-TR-69-114/  Vol.I 


933000*4 

214040*5 

965144*1-443528-4-686115+7  613820+2 

3000. 

5000.1 

0 

•  HO 

2  10 

0  0  0 

0  0  0 

0000  OJANAF  03/61 

H2 

000000-0 

212100+5 

711963+1 

621950-3-712694+6  484650+2 

500. 

3000.1 

0 

»H2 

000000-0 

212100+5 

681794+1 

589854-3  265106+7  484650+2 

3000, 

5000.1 

0 

.H2 

2  1  1 

7  0  0 

0  0  0 

0000  OJANAF  12/65 

H2N 

400999*5 

305799*5 

975862+1 

114401-2-518970+6  701580+2 

500, 

3000.1 

0 

•  H2N 

400999*5 

305799*5 

137419+2 

229493-4-610024+7  701580+2 

3000. 

5000.1 

0 

.H2N 

2  1  1 

8  0  0 

0  0  0 

0000  OJANAF  03/61 

H20 

-577980+5 

302010*5 

112254*2 

811397-3-260800+7  684210+2 

500. 

3000.1 

0 

.H20 

-577980*5 

302010*5 

157278+2-191548-3-173599*8  684210*2 

3000. 

5000.1 

0 

•  H20 

1  7  0 

0  0  0 

0  0  0 

0000  OJANAF  03/61 

N 

112965*6 

134370*5 

486944*1 

383516-4  958460+5  480900+2 

500. 

3000.1 

0 

.N 

112965*6 

134370*5 

428957*1 

240844-3-417273+6  480900+2 

3000. 

5000.1 

0 

.N 

1  7  1 

8  0  0 

0  0  0 

0000  OJANAF  06/63 

NO 

215800*5 

227000*5 

877623+1 

899031-4-789656+6  688490+2 

500. 

3000.1 

0 

.NO 

215800*5 

227000*5 

916260+1 

657885-5-212519+7  688490+2 

3000. 

5000.1 

0 

.NO 

18  0 

0  0  0 

0  0  0 

0000  OJANAF  06/62 

0 

595590+5 

135220+5 

497228+1 

380768-5  154749+5  508960+2 

500. 

3000.1 

0 

.0 

595590+5 

135220+5 

657489*1-224268-3-891782+7  500960+2 

3000. 

5000.1 

0 

.0 

2  8  0 

0  0  0 

0  0  0 

0000  OJANAF  03/61 

02 

000000-0 

234460*5 

804370+1 

510872-3-152718+6  679730+2 

500. 

3000.1 

0 

.02 

000000-0 

234460+5 

103071+2 

290991-4-783079+7  679730+2 

3000. 

5000,1 

0 

.02 

4  6  0 

0  0  0 

0  0  0 

0000  OJANAF  12/60 

C4 

242321*6 

511230*5 

205903+2 

623436-4-257703+7  986760+2 

500. 

3000.1 

0 

•  C4 

242321*6 

511230*5 

210714*2-434895-4-404939+7  986760*2 

3000. 

5000.1 

0 

•  C4 

5  6  0 

0  0  0 

0  0  0 

0000  OJANAF  12/60 

C5 

242374*6 

656230+5 

264706+2 

806528-4-337125+7  111641+3 

500. 

3000.1 

0 

.C5 

242374*6 

656230*5 

271156+2-580271-4-543183+7  111641+3 

3000. 

5000.1 

0 

»C5 

1  5  0 

one 

0  0  0 

0000  OJANAF  12/60 

B 

132618*6 

134240+5 

506024+1-307108-4-965641*5  481210+2 

500. 

3000.1 

0 

.8 

132618+6 

134240+5 

507458*1-121838-4-726353*6  481210+2 

3000. 

5000.1 

0 

.B 

l  5  1 

6  0  Q 

0  0  0 

0000  OJANAF  06/63 

CB 

198000+6 

233870+5 

887101+1 

987600-4-461666+6  689650+2 

500. 

3000.1 

0 

.  cs 

198000+6 

233870+5 

864500*1 

134780-3  599853+6  689650+2 

3000. 

5000.1 

0 

.CB 

1  1  1 

5  0  0 

0  0  0 

0000  OJANAF  03/63 

BH 

105630*6 

226370+5 

871723+1 

193099-3-113880+7  593240+2 

500. 

3000.1 

0 

.BH 

105630+6 

226370+5 

962344+1 

127652-4-442568+7  593240+2 

3000. 

5000.1 

0 

.BH 

1  1  1 

5  18 

0  0  0 

0000  OJANAF  12/60 

BHO 

-471270+5 

356030+5 

142974+2 

167620-3-201136+7  764730+2 

500. 

3000.1 

0 

.BKO 

-471270+5 

356030+5 

112392+2 

644065-3  134967+8  764730+2 

3000. 

5000.1 

0 

.BHO 

1  1  1 

5  2  8 

0  0  0 

0000  OJANAF  06/63 

BH02 

-134100+6 

456640+5 

182280*2 

425108-3-301044+7  924900+2 

500. 

3000.1 

0 

•  BH02 

-134100+6 

456640+5 

168746*2 

521159-3  699798+7  924900+2 

3000. 

5000.1 

0 

•  BH02 

2  1  1 

5  0  0 

0  0  0 

0000  OJANAF  12/60 

BH2 

660000+5 

327480+5 

131819+2 

199298-3-211346*7  720220*2 

500. 

3000.1 

0 

.  BH2 

660000*5 

327480+5 

133411*2 

907704-4-580069+6  728220+2 

3000. 

5000.1 

0 

•  BH2 

2  1  1 

5  2  8 

0  0  0 

0000  OJANAF  12/60 

BH202 

-450000*5 

597060+5 

246307*2 

263481-3-476319+7  109074+3 

500, 

3000.1 

0 

.BH202 

-450000*5 

597060+5 

246015+2 

206036-3-244306+7  109074+3 

3000. 

5000,1 

0 

•BH202 

3  1  1 

5  0  0 

0  0  0 

0000  OJANAF  12/60 

BH3 

ieoooo*5 

424590+5 

179007+2 

501613-3-495709+7  763790+2 

500. 

3000.1 

0 

.  BH3 

180000+5 

424590+5 

186890*2 

214061-3-464131+7  763790*2 

3000, 

5000.1 

0 

•  BH3 

3  1  1 

5  3  8 

0  0  0 

0000  OJANAF  03/63 

BH303 

-112-  | 

{ 


K;K- 


AFWL-TR-69- 114,  Vol.I 


-238600+6  860730+5  356846+2  478490-3-720419+7  131808+3  500,  3000.1  O.BH303 

-238600+6  860730+5  377529+2-105305-4-127237+8  131808+3  3000.  5000.1  0.BH3O3 

1518000000000  OJANAF  06/62  BO 

574400+4  226450+5  862197+1  136981-3-631704+6  670240+2  500.  3000.1  O.BO 

574400+4  226450+5  803486+1  210252-3  264653+7  670240+2  3000.  5000.1  O.BO 

1528000000000  OJANAF  06/63  B02 

-726000+5  379300+5  148552+2  119400-4-999435+6  856360+2  500.  3000.1  O.B02 

-726000+5  379300+5  118268+2  637770-3  935859+7  856360+2  3000,  5000.1  O.B02 

2500000000000  OJANAF  12/60  B2 

199300+6  238090+5  891017+1  112093-3-321955+6  678510+2  500.  3000.1  0.B2 

199300+6  238090+5  724425+1  412560-3  687918+7  678510+2  3000.  5000.1  0.B2 

4125480000000  OJANAF  03/66  B2H404 

-306999+6  125740+6  450887+2  266027-2-332605+7  179643+3  500.  3000.1  0.B2H4O4 

-306999+6  125740+6  543119+2  450391-4-157235+8  179643+3  3000.  5000.1  O.B2H404 

6125000000000  OJANAF  12/64  B2H6 

979999+4  957649+5  341573+2  274368-2-380166+7  125539+3  500.  3000.1  0.B2H6 

979999+4  957649+5  435286+2  258895-4-147630+8  125539+3  3000.  5000.1  0.B2H6 

2528000000000  OJANAF  03/61  B202 

-111600+6  515500+5  207885+2  370455-5-251331+7  983970+2  500.  3000.1  0.B2O2 

-111600+6  515500+5  196641+2  203148-3  284908+7  983970+2  3000.  5010.1  0.B2O2 

2538000000000  OJANAF  03/61  B203 

-210100+6  615070+5  257777+2-153675-4-427514+7  111710+3  500.  3000.1  0.8203 

-210100+6  615070+5  239286+2  345774-3  329402+7  111710+3  3000.  5000.1  O.B203 

1  99  00000000000  OCONVAIR  ZPH-122  12/61  E- 

+149010+5+498851+1-272800-5-135900+6+164558+22000,  10000.1  E- 

+149010+5+498851+1-272800-5-135900+6+164558+22000.  10000.1  E- 

16- 1  99  000000000  OCONVAIR  ZPH-122  12/61  C+ 

+428985+6+150120+5+489657+1+180700-4+340000+5+484232+22000.  10000.1  C+ 

+428985+6+150 120+5+489657+1+180700-4+340000+5+484232+22000.  10000.1  C+ 

17- 1  99  000000000  OCONVAIR  ZPH-122  12/61  N+ 

+446641+6+151310+5+501751+1+617100-4-184100+7+496847+22000,  10000.1  N+ 

+446641+6+151310+5+501751+1+617100-4-184100+7+496847+22000.  10000.1  N+ 

27- 1  99  000000000  OCONVAIR  ZPH-122  12/61  N2+ 

+357258+6+251470+5+136508+2-327940-3-225630+8+656601+22000.  10000.1  N2+ 

+357258+6+251470+5+136508+2-327940-3-225630+8+656601+22000.  10000.1  N2+ 

281  99  000000000  OCONVAIR  ZPH-122  12/61  02- 

-205250+5+267570+5+111480+2-656700-4-779100+7+699149+22000.  10000.1  02- 

-205250+5+267570+5+111480+2-656700-4-779100+7+699149+22000.  10000.1  02- 

1618-1  99  0000000  OCONVAIR  ZPH-122  12/61  CO+ 

+294283+6+243830+5+893619+1+378000-4-150900+7+666595+22000.  10000.1  CO+ 

♦294283+6+243830+5+893619+1+378000-4-150900+7+666595+22000.  10000.1  CO+ 

1718-1  99  0000000  OCONVAIR  ZPH-122  12/61  N0+ 

+232919+6+241970+5+910216+1+277400-4-316600+7+654379+22000.  10000.1  N0+ 

+232919+6+241970+5+910216+1+277400-4-316600+7+654379+22000.  10000.1  N0+ 

18- 1  99  000000000  OCONVAIR  ZPH-122  12/61  0+ 

+371999+6+149290+5+336271+1+306710-3+590200+7+484849+22000.  10000.1  0+ 

♦371999+6+149290+5+336271+1+306710-3+590200+7+484849+22000.  10000.1  0+ 

28- 1  99  000000000  OCONVAIR  ZPH-122  12/61  02+ 

+279695+6+248730+5+594789+1+626340-3+103500+8+677731+22000.  10000.1  02+ 

♦279695+6+248730+5+594789+1+626340-3+103500+8+677731+22000.  10000.1  02+ 

181  99  000000000  OCONVAIR  ZPH-122  12/61  0- 

+  245000  +  5+149430  +  5+216633+1+805240-3+532500  +  7  +  492947+22000.  10000. 1  0- 

+245000+5+ 149430+5+2 16633+ 1+805240-3+532500+7+402947+22000.  10000.1  0- 


(1  blank  car’.) 
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1.0  .9930 

.5384  .3993 

.0096  .0086 

.016232  .016428 

(6  blank  cards) 


.9721  .9372  .8881  .8246  .7462  .6516 

,21000  .17601  .10952  .05867  .0310 

,0087  .0094  .012  .013  .014  .015 

.016623  .016818  .017014 
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b.  Output  from  Sample  Case  Number  3 

Since  the  output  for  29  body  stations  is  lengthy,  not  all  the  output 
is  shown  here.  Both  the  standard  chemistry  output  for  boundary  layer  edge  ex¬ 
pansions  and  the  standard  output  for  boundary  layer  solutions  have  been  limited 
to  only  the  fi»*st  three  body  stations. 
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SECTION  VI 

POTENTIAL  PROBLEM  AREAS 


1.  DISCUSSION 

The  integral  matrix  procedure  which  is  used  to  solve  the  boundary  layer 
equations  uses  general  Newton-Raphson  iteration,  as  does  the  chemistry  solution 
procedure.  In  this  iteration  process  the  derivatives  of  all  equations  with  re¬ 
spect  to  the  primary  dependent  variables  are  employed  to  drive  the  errors  toward 
zero.  The  boundary,  layer  equations  converge  very  rapidly  (3  or  4  iterations) 
when  chemistry  is  not  taken  into  account  but  the  chemistry  equations  themselves 
are  very  nonlinear  and,  f urtheinnore ,  can  cause  the  boundary  layer  equations  to 
become  very  nonlinear.  Therefore,  it  has  been  necessary  to  develop  extensive 
convergence  deunping  procedures  for  both  the  chemistry  and  boundary  layer  itera¬ 
tion  procedures.  These  have  proven  generally  to  be  quite  satisfactory,  but  dif¬ 
ficulties  are  sometimes  encpuntered  for  very  severe  problems.  The  types  of  prob¬ 
lems  which  can  occur)  the  symptoms  of  these  problems,  and  procedures  for  coping 
with  the  problems  are  discussed  in  this  section.  The  subject  of  possible  pro¬ 
gram  errors  and  debug  output  useful  for  tracing  any  such  errors  is  discussed’ 
later  in  this  section*. 

An  unsuccessful  solution  usually  manifests  itself  as  a  nonconvergent  chem¬ 
istry  or  a  nonconvergent  boundary  layer.  Often  a  nonconvergent  chemistry  is  not 
the  result  of  an  inadequacy  or  programming  error  in  the  chemistry  routines  (EQUIL 
and  its  subroutines)  but  is  traceable  to  one  of  the  following:  (1)  an  excursion 
has  occurred  during  the  boundary  layer  iteration  such  that  the  chemistry  routines 
have  been  called  upon  to  solve  an  impossible  problem,  or  (2)  a  bad  chemistry  data 
deck  has  been  employed.  The  latter  could  be  bad  thermochemical  property  data 
(e.g.,  curve  fits  which  produce  negative  Cp)  or  a  poor  choice  of  species  (e.g., 
omission  of  a  species  important  to  the  solution) .  These  types  of  considerations 
should  be  investigated  first  if  a  nonconvergent  chemistry  occurs. 

On  occasion  when  the  equations  are  particularly  nonlinear,  the  chemistry 
iteration  can  get  temporarily  trapped  away  from  the  solution.  A  very  elaborate 
rescue  procedure  ensues  which  usually  overcomes  the  difficulty  but,  sometimes, 
not  within  the  allowed  number  of  chemistry  iterations.  If  a  chemistry  solution 
is  nearly  converged,  recovery  may  be  possible.  For  this  reason,  the  boundary 
layer  iteration  is  allowed  to  proceed  with  a  notation  in  the  output  that  a  non¬ 
convergent  chemistry  has  occurred.  If  no  nonconvergent  chemistries  occur  in  the 
iteration  just  preceding  a  converged  boundary  layer  solution,  any  prior  chemistry 
nonconvergences  can  be  disregarded.  On  the  other  hand,  if  a  chemistry  solution 
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is  far  from  convergent,  it  may  produce  a  fatal  error  in  a  subsequent  chemistry 
or  boundary  layer  iteration.  In  any  event  a  STOP  is  encountered:  after  20  non- 
convergent  chemistry  solutions  accumulate  in  the  current  case. 

When  a  problem  initiates  during  a  boundary  layer  iteration ,  thef irst 
symptom  often  shows  up  as  a  nonconvergent  chemistry  (as  mentioned  previously) . 
Again,  this,  is  usually  the  result  of  bad  input  data  or  a  poorly  posed  problem. 
Occasionally;  however,  the  boundary  layer  will  not  converge  in  the  allowed  num¬ 
ber  of  iterations.  Some  recovery  procedures  have  been  developed  into  the  bound¬ 
ary  layer  iteration  but  these  are  not  as  elaborate  as  those  for  the  chemistry 
iteration.  If  this  happens  and  it  appears  that  the  input  data  are  all  correct, 
it  sometimes  helps  to  rearrange  boundary  layer  nodal  spacing,  especially  for 
highly  blown  boundary  layers.  If  this  also  fails,  it  may  be  that  the  problem  is 
too  severe  for  the  iteration  procedure. 

If  the  user  is  considering  unequal  diffusion  coefficients,  he  should  then 
revert  to  assumed  equal  diffusion  coefficients  since  the  derivatives  used  in  the 
convergence  process  (these  do  not  affect  the  final  answer  as  the  solution  con¬ 
verges)  are  less  exact  in  unequal  diffusion  problems.  Also,  one  could  set  up  a 
sequence  of  subcases  leading  up  to  the  problem  of  actual  interest. 

Lest  the  reader  become  frightened  by  these  prospects,  it  should  be  empha¬ 
sized  that  the  convergence  procedures  employed  in  the  chemistry  and  boundary 
layer  iterations  are  nearly  100  .percent  reliable  for  most  problems  and  get.  into 
difficulties  only  occasionally  and  then  only  for  problems  with  massive  blowing 
(say  where  the  boundary  layer  gas  in  the  vicinity  of  the  wall  consists  of  about 
99  percent  or  more  of  gas  injected1  from- the  wall)-  and  for  unequal  diffusion  prob¬ 
lems  where  the  unequal  diffusion  effects  are  very  strong. . 

It  is,  of  course,  possible  that  a  bug  in  the  program  has  actually  caused 
a  problem.  It  is  thus  pertinent  to  review  the  operational  status  of  the  program. 
The  BLIMP  program  has  been  used  extensively  over  the  last  three  years.  During 
this  time  the  number  of  boundary  layer  solutions  which  have  been  obtained  prob¬ 
ably  exceeds  one  thousand,  while  the  number  of  chemistry  solutions  (required  at 
each  boundary  layer  nodal  point  and  for  each  boundary  layer  iteration)  is  prob¬ 
ably  well  in  excess  of  one  hundred  thousand.  The  recent  addition  of  a  turbulent 
model  has  indeed  perturbed  the  size  and  some  of  the  fluid  mechanical  aspects  of 
the  code,  however  these  changes  are  largely  confined  to  the  TREMBL  subroutine. 

The  more  complicated  chemistry  portions  of  the  program  have  remained  untouched 
and  therefore  debugged  for  the  most  part.  A  large  number  of  check  cases  have 
thoroughly  exercised  the  new  turbulent  and  transiton  model  logic,  therefore  this 
portion  of  -the  .program  also  should  be  error-free.  In  view  of  the  size  of  the 
program  and  its  enormous  number  of  options,  however,  it  is  possible  that  some 
errors,  may  still  exist  for  some  combinations  of  these  options.  For  this  reason 
an  elaborate  system  of  debug  write  statements  has  been  retained  in  the  program. 
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Debug  output  is  obtained  by  setting  KR(15)  through  KR(20)  to  nonzero  values.  The 
output  obtained  with  the  various  KR  options  is  summarized  in  Section  III  and  de¬ 
scribed  in  detail  in  the  remainder  of  this  section*.  The  ambitious  and  sophisti¬ 
cated  user  should  be  able  to  track  down  any  such  error' with  the  use  of  this  de¬ 
bug  output  and  the  information  presented  in  this  manual . 
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2.  DEBUG  OUTPUT 


TIME  OF  CALL 


LINMAT  BEFORE  BA1 
MATRIX  INVERSION 


LINMAT  AFTER  BA1 
MATRIX  INVERSION 

LINMAT  BEFORE  BA2 
MATRIX  INVERSION 


LINMAT  AFTER  BA2 
MATRIX  INVERSION 

LINMAT  AFTER 
GENERATION  OF  LAR 

FIRSTG  AFTER  CALC¬ 
ULATION  OF  FIRST 
GUESSES 


EQUIL  DURING  EDGE 
EXPANSION 


EQUIL  DURING  EDGE 
EXPANSION 


Vol.I 


FOR  BLIMP 


CONDITION 

DO  LOOP 

WRITE  LIST 

FORMAT 

NO. 

KR< 15) 

GT  1 

MAT1I*MAT1J 

213 

01 

KRM5) 

GT  1 

I=1*MAT1I 

(BA1 ( I » J) * J=1*MAT1J) 

12E10.3 

02 

KR ( 15) 

GT  1 

I=1»MAT1I 

(BA1 ( I  * J) » J=1  fMATU) 

12E10.3 

03 

KR<15) 

GT  1 

MAT2I *MAT2J 

213 

0% 

KRL15) 

GT  1 

1=1 »MAT2I 

(BA2(I*J)tJ=l»MAT2J) 

12E10.3 

05 

KR ( 15) 

GT  1 

i-i *  MAT2I 

( BA2(T*J) * J=1 » MAT 2 J ) 

12E10.3 

06 

KR ( 15) 

GT  1 

LAR 

2014 

07 

KR(15) 

NE  0 

(CF(I»J)»J=1»NETA)»I= 

1 »4) » ( ( (SP( I * J»K-1 ) * 
J=1»NETA) *1=1*3) #K=1* 
NSP) 

7E10.3 

08 

KQ<7>  GT  1 
KR(7)=0 

T*P*WM 

F10.4*F8 

F11.7 

.4*09 

KQ(7)  GT  1 
KR(7)=0 

W 

3E12.5 

10 

KQ<7)  GT  1 
KR(7)=0 

KQ ( 7)  GT  1 
KR(7)=0 


KQ(7)  NE  0 
KR(7)=0 


HIP*SIP*RHR  E14.7»E12  11 

•5»E13.6 

( F AMOA ( I )  *  F AMOB ( D  » VN  2A4*4E13.5  12 

(I)»DY(I)»Y(I)»VLNK  *I5»2E13.5 
(I)*IFC(I)»E(I)»CP<I) 

*  1=1 »N) 


ITS*ELrENL*TrAAA 


I5*4Ft5.9  13 
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TIME  OF  CALL 


EQUIL  DURING  EDGE 
EXPANSION  FOR 

nonconvergent 

chemistry 


.condition-  do  loop 


IF  ITS  GT 
50 (PERMIT¬ 
TED  NO  OF 
ITERATIONS) 
OR  SINGU¬ 
LAR  MATRIX 
(KR<7)=0) 


WRITE  LIST 


FORMAT 


NO. 


ISS* ITEM* II *MITS* ITS*  6I5*3E12.5  14 
IGQ*HIP>SIP*TT(II)*ALP  /6E12.5»6 
*LEF*(FR(I*II)*I=1*N) 

(ALSO*  16  IS  SET  TO  -2 
AND  KR(7)  TO  1  TO  PRO¬ 
DUCE  ADDITIONAL  OUTPUT 


14/ ( 10E11 
.4)) 


RERAY  FOR  CHEMISTRY  KQ(7)  GT1 


INVERSION  DURING 
EDGE  EXPANSION 
(CALL  FROM  EQUIL) 

CRECT  DURING  :EDGE 
EXPANSION 


KR(7)r0 


KQ(7)  ST  1 
KR(7)=0 

KQ(7)  GT  1 
KR(7)=0 

KQ(7)  GT  1 
KR(7)=0 

KQ(7)  ST  1 
KR(7)=0 


RERAY  PACKAGE ( N= I N » Cs APE 
( IL* IL) *NN=0*D~B( IL) * 
NNNsl*LSS0*IS=IG*ND=10) 


15 


( VN ( I ) » Y ( I ) *  DY ( I ) *  CMFF  4E12.4»I5»  16 
(I)»FM(I)»Isl*N)  4E12.4*I5 

(EB(I)*I=l»iS) 


(X(I)*I=1*INP) 
< IB ( I ) *  1=1  *  IS) 


8E12.4 

RE 12 *4 

1015 


17 


18 


19 


REPEAT  9  THROUGH  19  FOR  EACH  CHEMISTRY  ITERATION*  ITS  s  -l  INDICATES  20 

CONVERGED  SOLUTION  (SEE  13)*  16*17*18  AND  19  ARE  NOT  PRINTED  ON  CONVERSED 
SOLUTION.  21  THR0U6H  25  ARE  THEN  PRINTED  FOR  CONVERGED  EDGE  SOLUTION.  THE 
NUMBER  OF  CHEMISTRY  ITERATIONS  FOR  WHICH  THIS  DETAILED  INFORMATION  IS  PRINTED 
IS  KR(18)*5-4.  FOR  LATER  ITERATIONS  THERE  IS  ONE-LINE-OUTPUT  PER  CHEMISTRY 
ITERATION  (GIVEN  BY  13)  ANO  THE  STANDARD  CHEMISTRY  OUTPUT  PACKAGE  IS  EMPLOYED 
FOR  THE  CONVERGED  SOLUTION. 


EQUIL  DURING  EDGE 
EXPANSION 


KQ(7)  ST  1 
KR(7)=0 


CPF *CSP*ALF* BETH* GAM  5E12.5 


REPEAT  9*  10  AND- 11  FOR  CONVERSED  SOLUTION 


EQUIL  DURING  EDGE 
EXPANSION 


KQ(7)  GT  1 
KR(7)=0 


vel*vmach*area 


3E10.3 


REPEAT  12  FOR  CONVERGED  SOLUTION 

IS=1*NS 


REFCON  AFTER  CALL 
OF  EQUIL 


KR(15) 
NE  0 


IS*HE*UE(IS)»PTE(IS*1>  I3*6E10.3 
*TE(IS)*RH0E<IS)» 

VMUEMS) 


21 

22 

23 

24 

25 
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TIME  OF  CALL  CONDITION  DO  LOOP 


WRITE  LIST 


FORMAT 


NO. 


HISTXI  BEFORE  KR('17) 

RETURN  NE  0 


I S . DbXl » DLX2 . DZ » Di » D2 » 
ALPHD.HALPH*C1*C2»C4» 
GD. ( (ZM(IiJ) »J=1»6) *1 
=1»4)»< (ZG<I»J)»J=1* 
6)»i=i»4)»nHFri»j)» 
J=1.5)»I=1.7>»((HG(I* 
J)»J=1»3).I=1.7) 


6X1 2/6X11 E  26 
10.3/SXSC 
10.3/(8X 
10E10.3) 


KR(17)  NE  0 
NSPM1  NE"0 


(  ( (ZSP(I»J»K) *K=1»  10E10.3  27 

NSPM1)»J=1»6)»1=1»4). 
(((HSP(I»J#K)»Ksl» 

-NSPM1 ) . jsi » 3) » I“1 »7) 


PERFORM  20  FOR  CHEMISTRY  SOLUTION  IN  BOUNDARY  LAYER  FOR  11=1  (WALL)>  INSER-  28 
TING  28.  29  AND  30  BETWEEN  15  AND  21  FOR  CONVERGED  SOLUTION  ONLY  (23  NOT 
PRINTED  FOR  BOUNDARY  LAYER  SOLUTIONS) 


PROPS  DURING  BOUND-  KR<20>  NE  0 
ARY  LAYER  CALCULA-  KR(7)=0 
TION  FOR  II=i  (WALL) 


PROPS  DURING  BOUND-  KR(20)  NE  0 
ARY  LAYER  CALCULA-  KR(7)=0 
TION  FOR  11=1  (WALL) 


OMEGArDBARtVLAM.SC (ID.  8E12.4  29 

PR ( 1 1 ) » VMU1 » VMU2 . VMU3 » 

TT (II) . VMU5. VMU6»FF(1) 
.FF(2)»FF(3).CPTIL. 

HTIL» ( VK(I).WTM (I).ZK 
(I)»I=1.ISM)»VMU(II) 

DMU3H.DMU3K.DMU4H.  8E12.4  30 

DMU4K.DHTILH.DHTILK. 
DTH.DTK.DRHOH.DRHOK. 

DZKH » DZKK . HG . VK . RMMG- 


NONCER  DURING  KR(17)  GT  0 

BOUNDARY  LAYER 
CALCULATION  FOR 
1=1.  WALL 


C1.C2.C3.C4.C0EEQV.  12E10.3  31 

COEFGV 


IMONE  DURING  KR(17)  GT  0  RRR.I  7E10.4.I5  32 

BOUNDARY  LAYER 
CALCULATION 
FOR  1=2 


KR( 17)  GT  0  QQQ» I  7E10.4.I5  33 

KR(17)  AND  K=1.NSPM1  (SSS(L.K) »L=1»7) . I  7E10.4.I5  34 

NSPM1  GT  0 


PERFORM  28  EXCEPT  FOR  11=2  35 

I ONLY  DURING  KR(17)  GT  0  RRR.I  7E10.4.I5  36 

BOUNOARY  LAYER 
CALCULATION 
FOR  1=2 
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TIME  OF  CALL,  CONDITION  DO  LOOP  WRITE  LIST 


KR(17>  6T  0  QQQ* I 

KR( 171  AND  K=1»NSPM1  (SSS(L»K) .L=l»7) »I 
NSPM1  ST  0. 


REPEAT  31  39 

REPEAT  32  THROUGH  39  FOR  EACH  BOUNDARY  LATER  NODAL  POINT  UNTIL  I  =  NETA  HO 

(BOUNDARY  LAYER  EDGE) 


NONCER  JUST  BEFORE 
MATRIX  INVERSION 

KR ( 19) 

GT;  0 

FNLE.GNLE 

11E10.3/ 

(10E10.3) 

41 

KR ( 19) 
NSPM1 

and 

GT  0 

((SPNLE(I»K).K=1»NSPM1) 

»I=1.MAT2J) 

11E10.3/ 

( 10E10.3) 

42 

RERAY  FOR  BOUNDARY 
LAYER  INVERSION 
(CALL, FROM  NONCER) 

KR ( 17) 

GT  0 

RERAY  PACKAGE ( N=NAM » C=AM 
.  NN=NSP+ 1'»  D=ENL .  NNN=  1 » 
LS=LAR.IS=IX.ND=45) 

43 

NONCER  JUST  AFTER 
MATRIX  INVERSION* 

KR( 17) 

GT  0 

FLE.GLE 

11E10.3 

44 

KR ( 17) 
NSPM1 

AND 

GT  0 

<(SPLE(I.K)»K=1»NSPM1). 

I=1»MAT2I) 

ilElO.3 

45 

NONCER  BEFORE 

MATRIX  INVERSION 

FOR  WALL  RELATIONS 

KR( 16)  GT  1 

KR(17) 

GT  0 

( (DQJNL(I.K) »K=1.NSP) . 
I=i»NNLEQ) 

10E10.3 

46 

NONCER  JUST  BEFORE 
MATRIX  INVERSION 

FOR  WALL  RELATIONS 

KR(16) 

GT  0 

( (DQJRNL(I.K) »K=1.NSP) . 
Isl.NRNL) .DELQW.DELJW. 
WALLS » WALL J 

10E10.3 

47 

REPEAT  9  THROUGH  19  FOR  EACH  SURFACE  CHEMISTRY  ITERATION  UNTIL  ITS  EQUALS  48 
KR<18)*5-4  OR  <KR<16)-1>*5  FOR  KR<11)=2  PROBLEMS.  FOR  LATER  ITERATIONS  THERE 
IS  ONE-LINE-OUTPUT  PER  CHEMISTRY  ITERATION  (GIVEN  BY  13)  AND  THE  STANDARD 
CHEMISTRY  OUTPUT  PACKAGE  IS  EMPLOYED  FOR  THE  CONVERGED  SOLUTION  SUPPLEMENTED 
BY  THE  NAME  OF  THE  SURFACE  SPECIES. 

RERAY  FOR  INVERSION  KR(16)  GT  0 
OF  WALL  RELATIONS.  KR<U)=2 
SURFACE  EQUILIBRIUM 
OR  KINETIC  SOLUTIONS 
(CALL  FROM  NONCER) 

NONCER  JUST  BEFORE  KR<17)  OR 
CORRECTING  PRIMARY  KR(19)  GT  0 
VARIABLES 


RERAY  PACKAGE (N=NRNL-I I  49 

»C=AMMIU»II+4)»NN=0. 

D=DRNL(IIM)  .NNN=1»LS= 
O.IS=IXX»ND=45) 


DRNL  11E10.3  50 


FORMAT  NO. 

7E10.4.I5  37 

7E10.4.I5  38 
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TIME  OF  CALL 

CONDITION  DO  LOOP 

WRITE  LIST 

FORMAT 

NO. 

KR ( 17)  OR 

KR ( 19)  GT  0 

DVNL 

11E10.3 

51 

KR ( 17)  OR 

KR( 19)  GT  0 

FLE*GLE 

11E10.3 

52 

KR (17)  OR 

((SPLE(I#K)»K=1»NSPM1) 

»  11E10.3 

53 

KRM9)  GT  0  I=1.MAT2I 

AND, i  NSPM1 
GT  6 

HERAT  AT  END  OF  ALWAYS  ITS  ALPH  FPPW*EASE*ELMM  I9.F6.3»  54 

CURRENT  BOUNDARY  * IFNLM»FNLEMdGNLM»  F7.4»F6.4 

LAYER  ITERATION  GNLEM» (ISPNLM(K) »  »E7.0»8 

SPNLEM(K)»K=1»NSPM1)  (I3#E8.1> 

OUTPUT  AT  END  OF  KR(4)=1  STANDARD  BOUNDARY  55 

CURRENT  BOUNDARY  LAYER  OUTPUT  PACKAGE 

LAYER  ITERATION 

REPEAT  28  THROUGH  55  FOR  SUCCEEDING  BOUNDARY  LAYER  ITERATIONS  56 


RERAY  DEBUG  PACKAGE  IS=-2 
THE  RERAY  CALL  LIST 
IS  (N*C»NN»D»NNN» 

LS* IS»ND)  THE,  DEBUG 
TEST  VARIABLE  IS  IS 
ASSIGNED  THE  VALUE 
OF  -1  BEFORE  RETURN 

IS=-2 


IS=-2  1=1  *  N 

SINGULAR 

MATRIX 

(RETURN 

AFTER 

PRINTING) 


IS=-2 


NP»NNN»N  ( 15H  ((C( 

I»J)»J=1» 
I3» 12H) *  ( 
D( J) *J=1» 
I3»6H)»IS 
1»I3»15H) 
BEFORE 
RERAY) 

NP» (L<I)»I=1»NP)  (11H  L(I) 

d=ld3»5 
X  (3013)) 

(C(I»J)»J=1»NP)»  11E10.3/ 

(D(I»J) »J=1»NNN)  ( 10E10.3) 

(II'Ldl)  »SD(II)  dl=  ( 24H  PIVOT 

1»I)  WHERE  I  IS  INDEX  ROW/COL/ 

IN  DO  LOOP  RUNNING  TO  RES. RATIO 

N  5( I4» 1H/I 

3. 1H/E9.2 
» 1H# ) ) 

(I*L(I)»SDd)d=l.NP)  SAME  AS 

ABOVE 
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TIME  OF  CALL  CONDITION  DO  LOOP 


WRITE  LIST 


FORMAT 


NO 


IS=-2 


NP’NNNtN 


IS=-2  1=1  *  N 


(C(I» J) * J=1»NP) » 
(D<I»J>»J=1*NNN) 


( 15H  ((C( 

I » J) » J=l» 
I3» 12H) » C 
D(J)»J=1» 
I3»6H)#I= 
1 » I3» 14H) 
AFTER  R 
ERAY) 
11E10.3/ 
(10E10.3) 
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SECTION  VII 
OPERATING  PROCEDURES 

This  program  is  written  in  FORTRAN  V  source  language  for  the  CDC  6600 , 
with  a  130  K  core,  or  a  computer  of  similar  configuration.  Conventional  for¬ 
matted  READ  statements  sure  used  for  input  data.  Card  input  and  tabular  output 
sure  on  tape  units  KIN  and  KOUT,  respectively,  defined  in  the  main  routines 
(BLIMP  or  CABLE)  as  5  and  6,  respectively  (KOUT  is  also  defined  in  subroutine 
RERAY) .  Two  scratch  tapes ,  NBT  and  NBT.2  are  required  for  temporary  storage  of 
data  needed  for  multi-case  or  multi-time  solutions.  These  are  assigned  the 
numbers  13  or  14,  respectively,  in  subroutine  SETUP.  For  CABLE  runs  these 
tapes  plus  tape  12  should  be  saved  for  restarting  purposes. 
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SECTION  VIII 
PROGRAM  DIMENSIONING 


The  dependence  of  the  variable  dimensions  within  the  program  on  the  basic 
system  dimensions  is  of  key  importance  for  those  users  desiring  to  make  program 
modifications.  Changes  of  system  dimensions  result  not  only  in  redimensioning 
of  program  variables  but  also  changes  in  certain  program  instructions.  A  gen¬ 
eralized  technique  for  dealing  with  these  dimension  changes  is  presented  below. 


The  technique  which  is  used  consists  of  presenting  the  list  of  program 
COMMONS  and  DIMENSIONS  in  general  form,  with  a  key  to  the  general  terminology 
used.  The  following  definitions  apply: 


COM 

NSP 

NETA 

NS 

MOL 

NCON 

NITEM 

NKIN 

NDISC 


number  of  components  (=7;  1  edge*  3  pyrolysis  gas,  3  char) 

number  of  elements  (exclusive  of  electron) 

number  of  n  values  (surface  normal  grid) 

number  of  streamwise  stations 

number  of  molecules 

number  of  simultaneously  failing  surface  condensed  species  +1 
number  of  times  or  cases 
number  of  kinetic  reactions 

number  of  discontinuities  which  may  bef lagged 


The  following  code  will  be  used 

*A  «  C0M 
*B  »  NSP-1 
*C  =  NSP 
*D  »  NETA-.l 
*E  *  NSP+1 
*F  a  NETA 
*G  «  NSP+2 
*H  a  NETA+3 
*1  =  NSP  +  NC0N+3 

*J  =  2*NETA 
*K  *  3*NETA-2 
*L  *  NS 
*M  a  NKIN 
*N  =  NSP+3 
*0  =  NC0N 

*V  =  NDISC+1 
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**A 

= 

19+NETA*-(2*NSP+6) 

**M 

= 

M0L+1 

**N 

= 

NETA* (NSP+1) +3 

**0 

= 

NITEM 

**p 

= 

NETA* (2*NSP+3)-2 

**Q 

'= 

3*NS+5+NETA*  (5+3*NSP). 

**R 

= 

NS*  (NSP+6)+7 

**s 

= 

NETA*  <7+3*NSP)+l 

**T 

= 

4*  (NSP+1)*  (NETA-D+6 

**U 

= 

NS* (NSP+6) 

= 

M0L+2 

•**w 

= 

M0L+4 

**x 

= 

NSP* (3*NSP+21) -9 

**z 

= 

(NSP+1) * (NETA- 2) -4/NPS-6 

In  the  terminology  of  this  code.  Listing  No.  1  at  the  end  of  this  section  der 
scribes  the  basic  set  of  COMMON  statements  with  the  appropriate  dimensions.  Cer¬ 
tain  COMMONS  must  be  modified  for  use  in  the  set  of  chemistry  routines  (EQUIL, 
THERM,  MATER,  CRECT,  INPUT,  PROPS,  and  KINET)  because  of  variable  name  anomalies. 
These  COMMONS  are  shown  in  Listing,  No.  2. 

Listing  No.  3  indicates  the  common  blocks  required  by  each  routine.  Ex¬ 
cluded  from  this  list  are  truncated  common  blocks  which  are  required  for  certain 
routines.  In  those  cases  where  truncation  results  in  a  dimensionally  indepen¬ 
dent  COMMON,  no  reference  is  necessary.  If  it  is  dimensionally  dependent,  it  is 
included  on  Listing  No.  -4  ^together  .with  all  dimension,,  equivalence  and  program 
statements  which  are  affected  by  changes  in  system  dimension.  Each  entry  in  this 
last  table  is  identified  by  routine  and  approximate  line  location  within  that 
routine  and  can  easily  be  located  with  respect  to  a  current  listing. 
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LISTING  NUMBER  1 


STANDARD  COMMONS  FOR  ALL  ROUTINES  EXCEPT  WHERE  ALTERNATES  ARE  INDICATED 


COMMON/BLQCOM/  MOA<**M>#  MOB(**M) #NSPEC»FR(**M»*F> *W(3) *LEF<*E) 

1 » LEFS  <  *E ) » PIEASE » LEFW ( *E ) 

COMMON/BUMCOM/  BUMP » CORMA  *  E ASE » I CORM  *  WDOT  t TFZ  *  1 777 » DTEMP » K IP  *  I X 

COMMON/COECOM/  C5»C6»C?fC6»C9»ClO»Cll*Cl2»Ci3cC14»a5 

l»Ci6»C17»a8»C19*C20*C21»C22#C23»C24#C25*C26.C27*C28»C29*C3O#C31»C 
232»C33*C34»C35»C36*C37»C38»C39»C40»C41»C42#C43*C44»C45*C46»C47»C48 
3*C49»C50»C51»C52»C53»C54rC55»C56»C57»C58*C59fC60»C61.C62*C63*C64*C 
465»C66»C67#C68*C69#C70iC7l»C72»C73»C74»C75»C76»C77»C78»C79»C80»C81 
5»C82»C83»C84.C85»C86fC87*C88 

COMMON/COECON/  CKi<*B>  »CK2(*B) *CK3(*B> »CK4(*B) »CK5(*B) »Ck6(*B> 
1»CK7(*B)»CK8(*B)»CK9(*B)»CK10(*B)»CK11(*B)»CK12(*B)»CK13(*B) 
2»CK14(*B) »CK15«*B)»CK16<*B)»CK17(*B) »CK18(*B)#CK19(*B)»CK20(*B) 
3rCK2H*B)»CK22(*B)»CKKl(*B»*B) »CKK2(*B»*B) »XM(5) »XG<5) »XSP(5#*C) 
4»CKK3(*B»*B> 

COMMON/CRBCOM/HC  ARB » EMIS  *  STEF  »ADUM»BOUM»CDUM»HTEF*HMAT*EMlSC»EMIST 
1»HPG»ASU(3) »BSU(3) *HPYG<3) »HCHAR<3> »EMIV(3> »KS<*L> »ISU 
COMMON/EOGCOM/  PE<*L»  1>»PTE<*L»  I) »SPE(*B»*L»  1)»DUES» 

1UE(*L) »RHOE(*L) »VMU|(*L) »TE<*L>  * UEOGE » DUEDGE » D2UEDG t VMWE » HE » C90 

2  *DSIP(*L>»IDSIP»TTVC»TVCC(*L> 

COMMON/EPSCOM/ELCON»YAP»CLNUM»SCT»PRT»RED»DVS»RHOVS»PI»PIM»CL» 
1EPSA ( *F ) t EPS1 *  EL  <  *F ) * DP I <  *F » 2  > ♦ DL I < **N ) * DEPS  <  **N ) r DEPC  *  TREF ► RETR 
COMMON/EQPCOM/  RB<4*M»2> »RG(**M*2)»RD(**M*2)»RE(**M»2) rRF(**M»2) t 
1  TU(**M#2)  *FFU*M)  iFFA# IFC (**M>  »ATA<*E>  »ATB(*E>  *ATC(*E>  »WAT<*E>  t 
2KAT(*E)»IR(*E)»IZ#K2(10)»LAMX(**M)»P»Z»TK(*E**A)»VN(**M)» 

3  VNU(**M»*E) * XTFF»KR2»HCH*NCV*WM»WTM(**M> »YYY(**M>  »YW(**M>  »GG<**M> 

4  »7Q(*E»*A) »EPOVRK» SIGMA »BASMOL 

COMMON/EOTCOM/SIP»HIP*EEL*EENL»FLlQ»tWrrIRE»IER»AA#IITS»IN»lL*IIT» 

1  MODE * KMELT » SMELT » TM AX  >  TM I N » MELT » SUMN  t SUML ♦ WS  r  WSS » BX » I SP2 1 I SPQ  t 

2  ISP » KK J *  SVA  #  SVB » SVC » SVD » SUMC » FFF » CMF » EP • RV ♦ IFC JC » WTG *  WTL » JC » HHG r 

3  CCPGf TTMIN»TTMAX»L2»L3»IB(*G) >EB<*E>  »EBL<*E>  »A(*I»*I> *BB<M>  * 

4  IP(**M) * ALP(*E> »FNU(*E>  »GAMH(*E) » GAMF ( *E ) » SLAM ( *E ) »DY(**M) »RVS» 

5  CP(**M) #HH(**M) »SB(**M) »TC(**M) »VLNK<**M>  »E(**M) »PNUS(*E> » 

6  BC<*E>»BLNK<*E)»BY<*E>*IBC<*E)»BE(*E>»JZ(*0) 

COMMON/ERRCOM/FLEC  *K) »GLE(*J>  »SPLE(*J»*B> »ELA<**P>  »FLEM»GLEM 

1»SPLEM(*B)»ELM(*D)»ELMM»IFLM»IGLM»ISPLM(*B)»NELM»ILMM»DFL(*K) 
2»DGL(*<J) » OSPL (*J»*B> » FNLE <  *H> » GNLE  <*F> » SPNLE <  *F » *B ) » ENL  <  **N  > 

3 » FNLEM . 6NLEM t SPNLEM ( *B  > »  ENLMM «■ I FNLM » I GNLM ♦ I SPNLM ( *B ) 

4 » NENLM » INLMM » DFNL ( *H) » D6NL  <  *F ) * DSPNL ( *F » *B ) » DRNL ( *E ) 
COMMON/ETACOM/ET A ( *F ) » DET A  <  *F  > ♦ DSQ I *D ) » DCU ( *D ) t B 1 ( *D ) » B2 ( *D ) 
1»LAR1**N) »BAl(*Kf *H) »BA2(*J»*F) 

COMMON/FLPCOM/TXI ( 2) » TUE  < 2) * TRHOE < 2 ) » TTE ( 2 ) » TVMUE  C 2 ) » TMAT C **T » 2  > 
2,THF(*F»2) »LEFT<*E»2) »TPE(2>  »TRADS(2>  *TDSIP<2> *KQT(2> 
COMMON/FLXCOM/DELQW»OELJW(*B)»DQNL(**N)»DJNL(**N»*B)»WALLQ 
1 » WALL J  <  *8 ) * QW » VUKW ( *C  > » TPWALL 

COMMON/HISCOM/C1 *  C2 » C3»  C4 » ALPHD » BETA » ZM ( 4 » *D ) * ZG ( 4  *  *D ) » Z5P  < 4 » *D  * *B 
1  >  »XI (*D »HF(*F»5) »HG(*F*3) »HSP(*Ff 3**B) » HALPH » HUE » HHUE » HFW # DLX2 
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LISTING  NUMBER  1  (continued) 


2»C3M(*L) »BETAM(*L> 

COMMON/ INTCOM/  KR (20) # KIN* KOUT* MATH »MAT2I »MAT1J»MAT2J»NETA» I # IS»N 
lS.IT»NTIMEfNSP#NSPMlfNAM»NLEQ*NNLEQ*NRNL»  ITS»KAPPA»CBAR*CASE ( 15) 
2>B(8) *  MWE*NON»KQaO)»ITEM»NlTEM»KR17#NBT»NBT2»IDENT»KR9(*L) 

3  »KAUXO ♦ JYIME  * JSPEC  *  MD  <  3  > 

COMMON/KINCOM/MT»FKF(*M) »EAK(*M>  »EXK(*M) »PMU(*E»*M) »RMU(*E»*M) * 

1  DKPT(*M>  »PKP(*M) »PKR<*M) »RAT<*M)»RSIG(*M) »MA(*M>  »LL(*M) »PMR(*M) » 

2  PRMU(*E»*M) *E£SE(*£) 

COMMON/NONCOM/AM(**N»**N) .DVNL(**N>  *TCW* 

1VLNKW»DLPH<*C) »DLPK(*B#*C>  *DTHW*DTKW(*B> >FLUXJB(*C) 

COMMON/OUTCOM/ Y ( *F ) . RES  #  DELST  *  THENGY » THMOM * CH  *  BLOW  *  SHEAR  t  CF  *  SHAPE 
1  » CM ( *C ) » THELEM ( *C ) 

COMMON/PRMCOM/TIME ( **0) >PRE<*L)  »PTET(**0) >GE<**0) »S(*L) »ROKAP(*L) 

1  *  RNOSE  *  VKAP  *  NO ISC  *  ID! SC ( *L ) *  NSD < *P >  *  MSD  < *P ) * ITF ( **0 ) » IPRE  * RAONO » 
2C0NE»RA0FL(**0) *RAOR(*L>  »RAOS(*L) »irad 
COMMON/PRPCOM/PR ( *F ) #  T ( *F ) » RHO ( *F  >  *  SC ( *F  > » C APC ( *F ) » QR ( *F ) #  H ( *F ) 

1 » CPBAR ( *F ) » VMW ( *F ) »PHIK(*F»*B) » DRHOH t DRHOK ( *B  > » ZK ( ♦B  > »DZKH(*B) »  0 

2MU3K ( *B ) » DMU4K ( *B ) » DTK ( *B ) » OPHIKH ( *8 ) » DPRK ( *B  > » DSCK ( *B  >  *  DC APCK ( *B  > 
3 » DHT ILK ( *B ) » DORK ( *B ) » DCPBK < *B >  * DCPTK ( *B >  * DMU12K ( *B ) » DZKK ( *B  *  *B  > 
4»DPHIKK(*B**B>  *  DMU4H  t DMU3H t DHT ILH • VMU12 » CT » CTR » CPTI L » HT IL 

5»VMU3»DTH*DCAPCH»DPRH#DSCH»DQRH»DCPBH*DCPTH»DMU12H»VMU(*F>*  RHOP 
6(*F) »PHIKP<*F) » HP » TP  f  ZKP ( *B ) » VMU3P  >  VMU4P » HT ILP » CRHO ( *D ) »GMR(*F) 
COMMON/STTCOM/G AM 1 » PROUM  *  PR A . PRB  >  PRC . PRD » VMUA » VMUB . VMUC  *  VMUD . NC  * 

1  FLD(6#3> »VMWD 

COMMON/TEMCOM/SPDUM ( *B ) *  DER  < *L ) » DUMMi ( *F  >  *  SLOPE  <  *F ) » REDUM ( *F ) 
1»SDUM1(*L)»SDUM2(*L)»FWDUM(*L)*XIC0N{*L>»FWC0N(*L)»FWINIT(  1> 
2»XIINIT(  1)»DUDS(  *L> 

COMMON/ VARCOM/F ( 4 » *F ) » G ( 3 » *F  >  t SP ( 3 » *F  t *C ) » ALPH 
COMMON/ WALCOM/FW < *L  *  1)»TW<*L»  1>»HW(*L»  1) »SPW(*B>*L*  1) 
l»RHOVW(*L»  I) »FLUXJ(  3»*L>  1 > * IHW> ITW» IFWr ISPW* IRH0VW» IFLUXJ 
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THE  FOLLOWING  COMMONS  SHOULD  BE  USED  IN  B20A  THROUGH  B25A  AND  B28A 


COMMON  / INTCOM/KKR ( 20 >  * K IN» KOUT *  MAT1 1 » MAT2 I » MATl J » MAT2 J* NET A » 1 1 » 

1 ISS  f NS » ITT  *  NT IME  *  NSP  * NSPM1 . NAM  #  NLEQ *  NNLEQ ► NRNL » MI TS»  KAPPA » CBAR  t 
2CASE ( 15) » BB  <  8 >  *  MWE ♦ NON » KD  < 10 ) » I TEM t NI TEM » KR17 » NBT » NBT2 » IDENT » 

3  KR9(*L) » K AUXO » JT I M£ * JSPEC » MD ( 3 ) 

COMMON  /PRPCOM/PR ( *F ) » TT ( *F ) * RHO ( *F )  *SC<*F>  »CAPC(*F>  »QRUF>  »HHC*F) 
i»CPBAR(*F) »VMW(*F) »PHIK<*Ft *B> #DRH0H»DRH0K(*B) »ZK<*B> tDZKH(*B>  »  D 
2MU3M*B> »DMU4K(*B) »DTK(*8) »OPHIKH<*B> »DPRK(*B>  »DSCK(*B>  »DCAPCK(*B> 
3 » DHT ILK ( *B ) t DQRK ( *B ) #  DCPBK  <  *B ) *  DCPTK ( *B ) *  DMU12K < *B ) » DZKK ( *B » *B ) 
4»DPHIKK<*B#*B>  *  DMU4H*0MU3H»DHTILH>VMU12»CT»CTR»CPTXL»HTIL 
5 » VMU3 » DTH  *  DC APCH » OPRH » DSCH  #  DQRH  #  DCPBH » DC  PTH  #  DMU 1 2H  t VMU ( *F ) *  RHOP 
6<*F>  »PHIKP(*F> »HP»TP»ZKP(*B»  »VMU3P# VMU4P#HTILP»CRH0(*D) »GMR(*F> 
COMMON  /BLQCOM/FAMOA(**M)#FAM0B(**M)»N  »FR(**M»*F> »W(3> »LEF(*E> 
1»LEFS(*E) » PXEASE » LEFW  < ♦£ ) 

COMMON  /EQPCOM/  RB(**M»2) »RC(**M»2> #RD(**M»2) »RE(**M*2) »RF<**M»2) > 

1  TU(**M»2) #FF(**M) #FFA» IFC(**M) »ATA(*E) »ATB(*E>  »ATC(*E) »WAT(*E) » 

2  KAT(*E) »IR(*E) #IS*KR(10) #L*MI (**M) »P»T»TK(*E»*A) *VN(**M) » 

3  VNU(**M>*E) »ITFFiKR2»HCH»NCV»WM»WTM(**M>  »Y(**M) »YW(**M) #G6(**M) 

4  'TQ(*E’*A)»EPOVRK'SIGMA'BASMOL 

COMMON  /EQTCOM/SIP*HIP.EL»ENL*FLIG»CPF»IRE»IER»AA»ITS»IN»IL*IT» 

1  MODE » HMELT #  SMELT . TM AX  f  TM I N  *  MELT » SUMN » SUML  r  W5 1 WSS » B 1 » I SP2 » I SPG  * 

2  I SP » KK J ♦ SV A » SVB » SVC » SYD  *  SUMC » FFF  * CMF  r  EP * R V » I FCUC * WTG  t WTL  t JC » HG » 

3  CPG*TTMIN»TTMAX»L2#L3»IB(*G) »EB(*E>  >EBL(*E>  »A(*I#*I) »B(*I) * 

4  IP(**M) #ALP(*E) *FNU(*E) »GAMH(*E>  »GAMF(*E>  »SLAM(*E>  »DY(**M>  »RVS» 

5  CP(**M) »H(**M) »SB(**M) »TC(**M> »VLNK(**M) »E(**M>  »PNUS<*E) * 

6  BC(*E) *BLNK(*E) #BY(*E> ♦ JBC <*E) #BE(*E) * JJ(*0) 
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COOA  7 

/BLQCOM/ 

/FLXCOM/ 

/HISCOM/ 

/INTCOM/ 

/PRMCOM/ 

/PRPCOM/ 

/VARCOM/ 

/WALCOM/ 

BU1A 

/BLQCOM/ 

/BUMCOM/ 

/COECOM/ 

/COECON/ 

/CRBCOM/ 

/EDGCOM/ 

/EPSCOM/ 

/EQPCOM/ 

/EQTCOM/ 

/ERRCOM/ 

/ETACOM/ 

/FLPCOM/ 

/FLXCOM/ 

/HISCOM/ 

/INTCOM/ 

/KINCOM/ 

/NONCOM/ 

/OUTCOM/ 

/PRMCOM/ 

/PRPCOM/ 

/STTCOM/ 

/TEMCOM/ 

/VARCOM/ 

/WALCOM/ 

B02A 

/INTCOM/ 

/WALCOM/ 

C02A  4 

/BLQCOM/ 

/EDGCOM/ 

/FLPCOM/ 

/HISCOM/ 

/INTCOM/ 

/PRMCOM/ 

/VARCOM/ 

/WALCOM/ 


B03A  4 

/BLQCOM/ 

/EDGCOM/ 

/FLPCOM/ 

/HISCOM/ 

/INTCOM/ 

/PRMCOM/ 

/VARCOM/ 

/WALCOM/ 

B04A 

/BLQCOM/ 

/BUMCOM/ 

/ERRCOM/ 

/INTCOM/ 

/PRMCOM/ 

/VARCOM/ 

B05B  7 

/BLQCOM/ 

/BUMCOM/ 

/COECOM/ 

/COECON/ 

/CRBCOM/ 

/EDGCOM/ 

/EPSCOM/ 

/EQPCOM/ 

/EQTCOM/ 

/ERRCOM/ 

/ETACOM/ 

/FLXCOM/ 

/HISCOM/ 

/INTCOM/ 

/NONCOM/ 

/PRPCOM/ 

/VARCOM/ 

/WALCOM/ 

B05C  5 

/BLQCOM/ 

/BUMCOM/ 

/CRBCOM/ 

/EDGCOM/ 

/EPSCOM/ 

/EQPCOM/ 

/EQTCOM/ 

/ERRCOM/ 

/ETACOM/ 

/FLXCOM/ 

/HISCOM/ 

/INTCOM/ 

/NONCOM/ 


/PRMCOM/ 

/PRPCOM/ 

/TEMCOM/ 

/VARCOM/ 

/WALCOM/ 

B06A 

/EDGCOM/ 

/ERRCOM/ 

/ETACOM/ 

/INTCOM/ 

/PRMCOM/ 

/VARCOM/ 

B07A 

/EDGCOM/ 

/HISCOM/ 

/INTCOM/ 

/PRMCOM/ 

/TEMCOM/ 

/VARCOM/ 

/WALCOM/ 

B08B 

/COECOM/ 

/COECON/ 

/EDGCOM/ 

/ETACOM/ 

/HISCOM/ 

/INTCOM/ 

/PRPCOM/ 

/VARCOM/ 

R09A 

/CRBCOM/ 

/ETACOM/ 

/INTCOM/ 

/PRMCOM/ 

B10A 

/ETACOM/ 

/HISCOM/ 

/INTCOM/ 

/PRMCOM/ 

/VARCOM/ 

B11A  4 

/BLQCOM/ 

/COECOM/ 

/COECON/ 

/CRBCOM/ 

/EDGCOM/ 

/EPSCOM/ 


/EQPCOM/ 

/EQTCOM/ 

/ETACOM/ 

/FLXCOM/ 

/HISCOM/ 

/INTCOM/ 

/OUTCOM/ 

/PRMCOM/ 

/PRPCOM/ 

/TEMCOM/ 

/VARCOM/ 

/WALCOM/ 

BUB  7 

/BLQCOM/ 

/COECOM 

/COECON/ 

/CRBCOM/ 

/EDGCOM/ 

/EPSCOM/ 

/EQPCOM/ 

/EQTCOM/ 

/ETACOM/ 

/FLXCOM/ 

/HISCOM/ 

/INTCOM/ 

/OUTCOM/ 

/PRMCOM/ 

/PRPCOM/ 

/TEMCOM/ 

/VARCOM/ 

/WALCOM/ 

B12B  3 

/COECOM/ 

/COECON/ 

/ERRCOM/ 

/ETACOM/ 

/HISCOM/ 

/INTCOM/ 

/NONCOM/ 

/PRPCOM/ 

/VARCOM/ 

B13B  4 

/COECOM/ 

/COECON/ 

/ERRCOM/ 

/ETACOM/ 

/HISCOM/ 

/INTCOM/ 

/NONCOM/ 

/PRPCOM/ 
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B14A 

/EDGCOM/ 

/INTCOM/ 

/PRMCOM/ 

/PRPCOM/ 

/STTCOM/ 

B14B 

/STTCOM/ 

B19A  4 
/COECOM/ 
/COECON/ 
/ED6C0M/ 

/epscom/ 

/ERRCOM/ 

/ETACOM/ 

/HISCOM/ 

/INTCOM/ 

/NONCOM/ 

/PRPCOM/ 

/VARCOM/ 

B19T  4 

/COECOM/ 

/COECON/ 

/EDGCOM/ 

/ETACOM/ 

/HISCOM/ 

/INTCOM/ 

/NONCOM/ 

/PRMCOM/ 

/PRPCOM/ 

/TEMCOM/ 

/VARCOM/ 

B20A  11 
/BLQCOM 
/BUMCOM/ 
/EDGCOM/ 
/EQPCOM 
/EQTCOM 
/FLPCOM/ 
/FUXCOM/ 
/INTCOM 
/NONCOM/ 
/PRPCOM 
/VARCOM/ 
/WALCOM/ 

B21A  5 
/BLQCOM 


/EQPCOM 

/EQTCOM 

B22A  10 
/BLQCOM 
/BUMCOM/ 
/EQPCOM 
/EQTCOM 
/KINCOM/ 
/NONCOM/ 

B23A  9 

/BLQCOM 
/EQPCOM 
/EQTCOM 

B24A  13 

/BLQCOM 
/EQPCOM 
/EQTCOM 
/KINCOM/ 

B25A  5 

/BLQCOM 
/EDGCOM/ 
/EQPCOM 
/EQTCOM 
/INTCOM 
/PRPCOM 
/WALCOM/ 

B27A 

/ETACOM/ 

/INTCOM/ 

B28A  5 
/EQPCOM 
/EQTCOM 
/KINCOM/ 

B29A 

/BLQCOM/ 

/ETACOM/ 

/INTCOM/ 

/PRMCOM/ 

/VARCOM/ 

B30C 

/ERRCOM/ 

/ETACOM/ 

/NONCOM/ 
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DIMENSION  HIST1 <**Q) #HIST2<**R>  »HIST3(**S>  >VMAT(**T) »HIST4(**U) 
DO  141  1  =  1 » **T 

DIMENSION  HIST1 (**Q) #HIST2(**R) »HIST3(**S>  »VMATt**T) »HIST4(**U> 
DO  184  1  =  1  *  **T 
DIMENSIONDQJRNL ( **M# 1 ) 

DIMENSIONDELQJW(l)  »DQJNL < **N» 1 )  *WALLQJ(1> 

DIMENSI0NC0EEQV<84) »COEFQV<**X) 

CALL  RERAY(NAM.AM»NSP  +  1»ENL#1»LAR»IX>**N) 

725  DO  730  I=1»**P 
DO  735  I=1#**N 
DIMENSIONDQJRNL ( **Mt  1 ) 

DIMENSIONDELQJW(l)  »DQJNL < **N# 1 )  »WALLQJ<1> 

CALL  RERAY(NRNL-II»AM(I!+l#II+4) #0»DRNL(II+1) rl»0*IXX»**N) 
DIMENSION  CIJ(**M#1) 


DIMENSION  HIW(**M»3) #VKIE(**M) »VKlWt**M>  »ZIE(**M) »ZIW(**M) » 
1ZIESTR (**M) »ZIWSTR(**M) »ZKWSRT(*C>  »ZKESRT<*C> rZKWSTT(*C) »ZKESTT( 
2 ) » ZISDIFt **M) • ZKDIF t  *C )  *  ZKTDIF ( *C ) »CMK ( *C ) 

DIMENSION  C I J ( **M» 1 ) 

DIMENSION  CK23(*B) »CK24(*B) *CK25(*B) *CK26(*B) 

DIMENSION  D(ND*1) #SD(**N) »C<ND»1>  #Lt**N>  »S(**N>  »LL<**N) >LLL<**N) 
1LS(1) 

COMMON/ETACOM/ETA ( *F ) * OETA ( *F ) 

DIMENSION  X(1)»A(*0)»B(*D)»C(*D) 

DIMENSION  EPSOUT(**A) 

DIMENSION  DRHS(**N) 

EQUIVALENCE(T(JC**V)  »TF) .  <VNU*CIJ> 

DIMENSION  ClJt **M» 1 ) » TF ( 1 ) 

DIMENSION  APE<*I’*I)  *BS(*D 

DIMENSION  VLAMt **M» 1 ) »  X ( *1 > *GAMK ( **M» 1 ) »KQt 10 > rDQJRNL ( **M» 1 > 
EQU I VALENCE ( AM (**W) »DQJRNL<**W>  »GAMK» VLAM) 

CALL  RERAY(IN»A#0»B»0*0»IG**I) 

CALL  RERAY (IN» APE <IL»IU  * 0»B( IL> » 1  * 0» IG**I > 

DIMENSION  CIJ(**M»1) iTFtl) 

EQUIVALENCE(TU(**V) »TF) » (VNU^CIJ) 

DIMENSION  VLAMt **M»1) »  Xt*I) 

EQUIVALENCEt AM(**W) »VLAM) 

DIMENSION  CIJ(**M»1) »TF(1) 

DIMENSION  ECD(**M) 

EQUIVALENCE(TU(**V) *TF) » (VNU»CIJ) 

DIMENSION  CIJ(**M» 1 ) # TFt 1 ) 

EQUIVALENCE <TU(**V) »TF) * ( VNU»CIJ) 

DIMENSION  Xt*I) 

DIMENSION  CMFF ( **M) 

DIMENSION  Cl J t  **M» 1 ) *  TF ( 1 ) 

DIMENSION  UM(*£»*E> 

EQU I VALENCE (TU(**V> »TF) > (VNU»CIJ) 

DIMENSION  C(*E) »KPHA(2) »RA(2) »  IM(*E) > JAT(8> »ALPT(8> »TAU(*E»*E) 
DIMENSION  ICt  *E) *LIM(*E»*E) 

DIMENSION  FFIN(**M) »NFI A ( **M) » NFIB ( **M) 


C02A  003 
C02A  035 
B03A  003 
B03A  091 
305B  004 
B05B  005 
B05B  006 
B05A2290 
B05A4790 
B05A4810 
B05C  003 
B05C  004 
B05C3800 
B11A  003 
B11B  003 
♦CB11B  004 
B11B  005 
B11B  006 
B13B  003 
»  B15B  003 
B15B  004 
B18A  004 
B18A  005 
B19A  003 
B19T  003 
B20A  006 
B20A  007 
B20A  008 
B20A  009 
B20A  010 
B20A  263 
B20A  373 
B21A  003 
B21A  004 
B22A  005 
B22A  006 
B22A  007 
B22A  008 
B22A  009 
B23A  005 
B23A  006 
B23A  007 
B23A  008 
B24A  006 
B24A  007 
B24A  008 
B24A  009 
B24A  010 
B24A  Oil 
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B24A  012 
B25A  005 
B28A  004 


DIMENSION  IFMET C **M>  t IGMET ( **M ) #  ZI GEPS ( 2  >  > SORCE < 8 > 
DIMENSION  VK(*E)*PM*N»*N>  »PV<*G»*N) 

DIMENSION  ELKM(*M) »DELK(*M) 


;AFWL-TR-69-114,  Vol.I 


SECTION  IX 

FORTRAN  VARIABLES  LIST 

The  Fortran  variables  are  listed  and  defined  at  the  end  of  this  section. 
The  routines  within  which  the*  variables  are  valid  are  identified  as  follows.  An 
L  followed  by  a  name  in  the  right-hand  column  indicates  that  the  variable  is 
local  to  the  routine  of  that  name  (e.g.,  L  EQUIL).  A  C  followed  by  a  biank 
indicates  the  variable  appears  in  unlabelled  common,  a  C  followed  by  a  name 
indicates  the  variable  appears  in  a  labelled  common  of  that  name  (e.g.,  C  EQTCOM), 
and  an  E  followed  by  a  name  indicates  the  variable  is  equivalenced  to  a  vari¬ 
able  appearing  in  a  labelled  common  of  that  name  (e.g.,  E  EQTCOM).  A  tabulation 
of  the  common  blocks  included  in-  the  various  subroutines  was  presented  in  the 
previous  section. 

An  asterisk  (*)  appearing  before  the  equal  sign  (=)  in  the  Fortran  vari¬ 
ables  definition  list  indicates  that  the  variable  is  valid  only  in  the  chemistry 
routines  (EQUIL,  PROPS,  THERM,  MATER,  KINET,  CRECT,  INPUT)  whereas  a  plus  sign 
(+)  indicates  the  variable  is  not  valid  in  the  chemistry  routines.  If  neither 
a  *  or  a  +  is  indicated,  the  variable  is  valid  in  any  routine  which  contains 
the  variable  in  the  appropriate  COMMON  block. 

In  the  Fortran  variables  list,  the  subscripts  have  the  following  conven¬ 
tion: 


I 

=■. 

Ith  nodal  point  or  nodal  segment 

J 

= 

L  L 

j  1  species  (molecular,  atomic,  ionic 

and  condensed) 

K,KK 

= 

Kth  or  KK^  'element,  base  species,  or 

related  quantity 

L 

= 

Lth  streamwise  station 

M 

= 

til 

M  time  (or  subcase) 

MK 

= 

MKfc^  kinetically  controlled  reaction 

N  ,NN 

= 

Other  meanings,  defined  as  used 

Finally, 

variables  referred  to  in  the  definitions  are  Fortran  variable 

names  except  where  specifically  identified  otherwise  (e.g.,  in  the  definition 
of  AM (N,NN) ,  (BNL)  is  not  a  Fortran  variable  name  but  is  defined  in  a  referenced 
report) . 
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fortran  variables  list 


» 


A (N*NN) 

AA 

AAA 

AB 

ABB 

ABER 

absva 

ABX 

AC 

ACC 

ACH 

ADUM 

AF 

ALF 

ALP(K) 

ALPH 

ALPHD 

ALPT(N) 

ALSO 

AM(N.NN) 

AMOA 


ERROR  COEFFICIENT  ARRAY  IN  CHEMISTRY  SOLUTION.  N  PERTAINS  C 
TO  EQUATION  WHEREAS  NN  PERTAINS  TO  VARIABLE. 

PRODUCT  OF  PRESSURE  TIMES  MOLECULAR  WEIGHT.  C 

DEFUNCT  VARIABLE.  SET  TO  UNITY.  C 

LOCALLY  DEFINED  VARIABLE  L 

LOCALLY  DEFINED  VARIABLE  L 

ABSOLUTE  VALUE  OF  RATIO  OF  A  MASS  BALANCE  ERROR  TO  LARGEST  L 
TERM  IN  THAT  MASS  BALANCE. 

ABSOLUTE  VALUE  OF  CONTRIBUTION  OF  A  SPCIES  TO  A  MASS  L 

BALANCE. 

ABSOLUTE  VALUE  OF  LOG  CORRECTION  ON  TEMPERATURE.  L 

LOCALLY  DEFINED  VARIABLE  L 

LOCALLY  DEFINED  VARIABLE  L 

MACH  NUMBER  L 

COEFFICIENT  IN  SURFACE  KINETIC  RELATION  FOR  MATERIAL  BEING  C 
CONSIDERED  UNDER  KR(9)  =  5  OR  6  (SFE  INPUT  INSTRUCTIONS). 

LOCALLY  DEFINED  VARIABLE  L 

DERIVATIVE  OF  LOG  MOLECULAR  WEIGHT  WITH  RESPECT  TO  LOG  TEM-L 
PERATURE  AT  CONSTANT  PRESSURE. 

INPUT  MASS  QUANTITY  OF  ELEMENTS.  E3(25)  OF  NASA  CR-1064.  C 


normalizing  parameter  FOR  BOUNDARY  LAYER  NORMAL  COORDINATE.C 
SEE  EQ.  (33)  OF  NASA  CR-1062. 

D1*ALPH  +  D2*HALPH  WHERE  Dl  AND  D2  ARE  DEFINED  BY  EQ(88)  ORC 
(89)  OF  NASA  CR-1062. 

NUMBER  OF  ATOMS  OF  AN  ELEMENT  WITH  ATOMIC  NUMBER  JAT(N)  IN  L 
A  SPECIES. 

ALPH**2  L 

COEFFICIENTS  IN  THE  MATRIX  DEFINED  AS  <BNI_)  IN  EQ(150)  OF  C 
NASA  CR-1062. 

ALPHANUMERIC  VARIABLE*  FIRST  OF  TWO  PORTIONS  OF  SPECIES  L 
NAME. 


EQTCOM 

EQTCOM 

EQPCOM 

SLOPQ 

SLOPS 

MATER 

MATER 

CRECT 

SLOPQ 

SLOPQ 

OUTPUT 

CRBCOM 

TRMBL 

EQUIL 

EQTCOM 

VARCOM 

HISCOM 

INPUT 

FIRSTG 

NONCOM 

INPUT 
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AMOB 

AMU5 

APE<N»NN) 

AR 

AREA 

ARPH 

ARPHM 

ASTAR 

ASU 

ATA(K) 

ATB(K) 

ATC(K) 

ATEMP 
B  (N) 

B<N) 

81 

B1(I) 

B2(I) 

BA1 (N*NN) 

BA2<N*NN) 

BASMOL 

8DUM 


ALPHANUMERIC  VARIABLE*  second  of  two  portions  of  species  l 
NAME. 

VN<J)  *  wTM(J)/(FF(j)  *  (WDZ-VN(J)  *  FF ( J)  *  WD7) )  SUMMED  L 


OVER  ALL  SPECIES  M  *. 

SAVED  ARRAY  A ( N » MN )  DURIN6  INVERSION.  L 

WEIGHTING  FACTOR  IN  LINEARIZING  EQUILIBRIUM  ASPECT  OF  KINETL 
ICALLY  CONTROLLED  MASS  BALANCE. 

AREA  PEP  UNIT  MASS  FLOW  DURING  EXPANSION.  L 

ELEMENTAL  MASS  FRACTION  OF  ATOM.  L 

MAXIMUM  CONTRIBUTION  TO  CALCULATION  OF  AN  ARPH.  L 

A*  USED  IN  TRANSPORT  PROPERTIES  L 

FIRST  FOUR  CHARACTERS  OF  ALPHAMERIC  NAME  OF  ASSIGNED  C 

SURFACE  SPECIES 


ALPHANUMERIC  VARIABLE*  FIRST  OF  THREE  PORTIONS  OF  ELEMENT  C 
NAME. 

ALPHANUMERIC  VARIABLE*  SECOND  OF  THREE  PORTIONS  OF  ELEMENT  C 
NAME. 

ALPHANUMERIC  VARIABLE*  THIRD  OF  THREE  PORTIONS  OF  ELEMENT  C 
NAME. 


ABS(DTEMP)  L 

ERRORS  USED  WITH  COEFFICIENTS  TO  YIELD  CORRECTIONS  IN  CHEM-C 
ISTRY  ITERATIONS*  IDENTICAL  TO  BB+. 

ARRAY  OF  CONSTANTS  DEFINED  IN  BLIMP*  IDENTICAL  TO  BB*.  C 

SAVED  VALUE  OF  B<1)  DURING  INVERSION.  EQUALS  SURFACE  L 

EQUILIBRIUM  ERROR  FOR  THAT  OPTION. 

DSQ(I-l)/6  C 

DSQd-l>/3  C 


MATRIX  (BLFF)  DEFINED  BY  FIGURE  (3)  OF  NASA  CR-1062  PREMUL-C 
TIPLIED  BY  INVERSE  OF  < ALFF) . 

MATRIX  (BLHH)  OR  <BLKK>  DEFINED  BY  FIGURE  (3)  OF  NASA  CR-  C 
1062  PREMULTIPLIED  BY  INVERSE  OF  (ALHH)  OR  CALKK).  RESPEC¬ 
TIVELY, 

MOLECULAR  WEIGHT  OF  REFERENCE  SPECIES  IN  DIFFUSION  FACTOR  C 
CALCULATIONS 

COEFFICIENT  IN  SURFACE  KINETIC  RELATION  FOR  MATERIAL  BEING  C 
CONSIDERED  UNDER  KR<9>  =  5  OR  6  (SEE  INPUT  INSTRUCTIONS). 


INPUT 

PROPS 

EQUIL 

KINET 

EQUIL 

EQUIL 

EQUIL 

PROPS 

CRBCOM 

EQPCOM 

EQPCOM 

EQPCOM 

NONCER 

EQTCOM 

INTCOM 

EQUIL 

ETACOM 

ETACOM 

ETACOM 

ETACOM 

EQTCOM 

CRBCOM 
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» 


BETA  BETAM(L)  C 

BETAH(L)  STREAMWISE  PRESSURE  GRADIENT  PARAMETER  DEFINED  BY  EQ(53)  OFC 


NASA  CR-1062. 

BETH  DERIVATIVE  OF  LOG  MOLECULAR  WEIGHT  WITH  RESPECT  TO  LOG  L 

PRESSURE  AT  CONSTANT  TEMPERATURE. 

8F  LOCALLY  DEFINED  VARIABLE  L 

BIP  NOMINALLY  ZERO»  SET  TO  1.  TO  PREVENT  PREMATURE  CONVERGENCE  L 

8L0W  BLOWING  PARAMETER  BASED  ON  GAS  MASS  FLUX  GIVEN  BY  C 

RH0VW(IS»l>/tC3  *  CH). 

BLOWCH  CHAR  FLUX  NORMALIZED  BY  HEAT  TRANSFER  COEFFICIENT  L 

BLOWPG  PYROLYSIS  GAS  FLUX  NORMALIZED  BY  HEAT  TRANSFER  COEFFICIENT  L 

BLGEQV  VARIABLE  EGUIVALENCED  TO  BLQCOM  FOR  DUMPING  PURPOSES  L 

8SIN)  SAVED  ARRAY  OF  B(N)  DURING  INVERSION.  L 

BSU  SECOND  FOUR  CHARACTERS  OF  ALPHAMERIC  VALUE  OF  ASSIGNED  C 

SURFACE  SPECIES 

BULP  LOG  (BUMP).  L 

BUMEGV  VARIABLE  EGUIVALENCED  TO  BUMCOM  FOR  DUMPING  PURPOSES  L 

BUMP  CONTRIBUTION  TO  DAMPING  FACTOR  EASE  RESULTING  FROM  SIGN  C 

CHANGES  IN  CRITICAL  ERRORS. 


BUMP 

10**4  *  P»  CONSTRAINTS  ON  CORRECTIONS  ARE  RELAXED  FOR 
PARTIAL  PRESSURES  BELOW  THIS  VALUE. 

L 

C  (K) 

GRAM  ATOMS  OF  ELEMENT  K  IN  A  MOLECULE. 

L 

Cl 

X  +DZ  WHERE  DZ  IS  DEFINED  BY  EQ<88>  OR  (89)  OF  NASA  CR- 

1062C 

C2 

-d+2*DZ)  WHERE  DZ  IS  DEFINED  BY  EQ(88)  OR  (89)  OF  NASA 
1062. 

CR-C 

C3 

C3M(L) 

C 

C3M(L> 

-1/ALPHASTAR  WHERE  ALPHASTAR  IS  THE  FLUX  NORMALIZING  PARA-  C 
METER  DEFINED  8Y  EQ  (44)  OF  NASA  CR-1062. 

C4 

BETA+l+DZ  WHERE  DZ  IS  DEFINED  BY  EG<88)  OR  (89)  OF  NASA 
1062. 

CR-C 

C5 

l./ALPH 

C 

C6 

BETA  *  ALPH**2 

C 

HISCOM 

HISCOM 

EQUIL 

TRMBL 

NONCER 

OUTCOM 

OUTPUT 

OUTPUT 

dumcom 

EQUIL 

CRBCOM 

CRECT 

DUMCOM 

BUMCOM 

CRECT 

INPUT 

HISCOM 

HISCOM 

HISCOM 

HISCOM 

HISCOM 

COECOM 

COECOM 
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C7 

-<UE(L)**2>/< (ALPH**2>*25036.5> 

C  COECOM 

C8 

ALPHD/ALPH 

C  COECOM 

C9 

BETA+l.+OZ  -  ALPHD/ALPH 

C  COECOM 

CIO 

C7*F(2»I) 

C  COECOM 

Cll 

F  ( 3»  I ) /ALPH 

C  COECOM 

C12 

CAPC ( I ) /ALPH 

C  COECOM 

C13 

C7  *  F(3*X) 

C  COECOM 

C14 

( 1 • +DZ ) *F ( 1  *  I ) +HF ( I » 5 ) 

C  COECOM 

C15 

PR(I)-1 

C  COECOM 

C16 

l./PR(I) 

C  COECOM 

C17 

l./SC(I) 

C  COECOM 

C18 

CTR*T ( I ) 

C  COECOM 

C19 

CAPC ( I ) / ( ALPH*SC ( I ) ) 

C  COECOM 

C20 

CAPC ( I ) / ( ALPH*PR  C I ) ) 

C  COECOM 

C21 

1 ./CAPC ( I ) 

C  COECOM 

C22 

C7*F<3#I)*(PR(I)-1,)*CAPC(I)/(ALPH*PR(I) ) 

C  COECOM 

C23 

C3M(L)*QR(I) 

C  COECOM 

C24 

CTR*VMU3 

C  COECOM 

C25 

1./VMU12 

C  COECOM 

C26 

RHOE(L)/RHO( I) 

C  COECOM 

C27 

-VMU4P*CAPC  < I ) / i ALPH*5C ( I )  > 

C  COECOM 

C28 

CPBAR ( I ) *TP 

C  COECOM 

C29 

CTR/VMU12 

C  COECOM 

C30 

CT*CTR/VMU12 

C  COECOM 

C31 

HTILP-(CPTIL+C30)*TP+CTR*T( I)*VMU3P+(HTIL-H( I)+CTR*VMU3 
T ( I ) )  *  VMU4P 

*  C  COECOM 

C32 

-(F(2»I)*C7*F(3»I)*CAPC(I)/ALPH+C3M(L)*QR(I) )+CPBAR(I)* 
*  CAPC ( I ) / (ALPH* PR ( I ) ) +C3l*CAPC ( I ) / ( ALPH*SC ( I ) ) 

TP  C  COECOM 

C33 


(C32+C3M(U*QR(I)  )/CAPCC) 


C  COECOM 


> 


i 


C34 

CAPC ( I )  /  ( ALPH* ( PR (I ) **2 ) ) 

C  COECOM 

C35 

-CPBAR ( I ) *TP*C APC ( I ) / ( ALPH* (  PR ( I >  **2 ) > 

C  COECOM 

C36 

-C31*CAPC < I ) /ALPH*  <SC ( I ) **2) > 

C  COECOM 

C37 

TP*CAPC(I)/ALPH 

C  COECOM 

C38 

TP*CAPC (I ) / ( ALPH*PR < I ) ) 

C  COECOM 

C39 

=-TP*C APC  ( I )  /  ( ALPH*SC  <  I ) ) 

C  COECOM 

C40 

TP*CAPC ( I ) *CT*CTR/ ( VMU12**2*ALPH*SC ( I ) ) 

C  COECOM 

C41 

( VMU4P*VMU3+VMU3P ) *CTR*C APC  ( I ) / < ALPH*SC ( I ) ) 

C  COECOM 

C42 

VMU4P*CAPC < I ) *CTR*T ( I > / ( ALPH*SC ( I ) ) 

C  COECOM 

C43 

C27+DCAPCH*C33+0PRH*C35+DSCH*C36-D0RH*C3M( IS) +DCPBH*C38  ♦ 
DCPTH*C39+DMU12H*C40-DHTILH*C27+DTH*C41+DMU3H*C42 

C  COECOM 

C44 

(CAPC(I)/ALPH)*(1./SC(I)-1./PR(I>) 

C  COECOM 

C45 

(CAPC ( I ) /ALPH) * (CPBAR ( I ) /PR ( I ) - ( CT*CTR/VMU12+CPTIL) /SC ( I ) ) 

C  COECOM 

C46 

CTR*T ( I ) *CAPC ( I ) / ( ALPH*SC ( I) ) 

C  COECOM 

C47 

(CAPC ( I ) /ALPH*SC ( I ) ) )  *  <HTIL-H(I)+VMU3  *  CTR  *  T( I) > 

C  COECOM 

C48 

(CAPC ( I ) /ALPH) * ( 1 #/SC ( I ) •1«/PR( I ) )  +  DTH*C45+DMU3H*C46  ♦ 
DMU4H*C47 

C  COECOM 

C49 

RHOE ( L ) / ( RHO ( I ) **2 ) 

C  COECOM 

C50 

BETA* ( ALPH**2 ) *RHOE ( L ) / ( RHO ( I ) **2 ) 

C  COECOM 

C51 

DRHOH*C50 

C  COECOM 

C52 

C7  *  F(2fD  *  C51 

C  COECOM 

C53 

RHOP( I )/RHO( I) 

C  COECOM 

C54 

BETA* ( ALPH**2) *RHOE ( L ) *RHOP ( I ) / <  RHO ( I ) **3 ) 

C  COECOM 

C55 

-ORHOH  *  C54 

C  COECOM 

C56 

F(2* I ) /ALPH 

C  COECOM 

C57 

C7  *  F(3» I )  *8ETA*ALPH**2*RH0E(L)/(RH0(I)**2) 

C  COECOM 

C58 

-C7  *  F(2»I)*DRH0H  *  C54 

C  COECOM 

C59 

-F(2»I)*(CRH0H*C57  ♦  C58)/ALPH 

C  COECOM 
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cot COM 


CbO 

Cbl 

Cb2 

Cb3 

CbU 

0  b5 
Cbb 
Cb7 
Cb8 
Cb9 
C70 
C71 
C72 

C73 

C74 

C75 

C76 

C77 

C78 

C79 

C80 

C81 

C82 

C83 

C84 


C7  *  F ( 2 *  I >  *  C43 
C7  *  F ( 3 *  I  >  *  C48 

-BETA  *  ALPH**2  *  RHOE(L>  *  DSQd-1  >  /  ( 12. *RHO(  I )  **Z  > 
PETA*ALPH**2*CRHO( 1-1) 

BETA*ALPH**2* (RHOE (L) /RHO( I ) **2)  *PETA( 1-1 ) * ( .5-DETA ( 1-1 > 
*RH0P(I)/(6.*RH0(I) ) ) 

NOT  CURRENTLY  USED. 

-DRH0H*Cb4 

-DRHOH*BETA*ALPH**2*RHOE<L>*OSQ(I-1>/<12*RHO< I)**2) 
-(F(2.I)/ALPH)*(C67*2*F(3. I ) -F i 2 *  I ) *DRH0H*C64 ) *C7 
C7*DRH0H*(F(3» I)*C62-F<2* I >*C64) 

C7*F(2»I>*C67 
NOT  CURRENTLY  USED. 

F(2»I)*XM(1)+F(3*I)*XM(2>+F(4.I)*XM(3)+F(4.I-1)*XM(4) 

=  INTEGRAL  OF  (F(2*I>  *  F(2»I)  *  DFTA). 

(l.+DZ)  *  F ( 2 » I ) 

C7  *  DCAPCH  *  F  <  3  *  I )  *  F<2»I)/ALPH  +  (l.+DZ)  *  F(1»I)  + 

HF  ( 1 . 5) 

DCAPCH  *  F  ( 3 . 1 )  / AlPH 
(l.+DZ)  *  6(1. 1) 

C7  *  F < 3# I >  *  (l.-PR(I))  *  CAPC(I)/(ALPH  ♦  PR(I)>  ♦  C7  * 

(F ( 2* I )  *  C43  ♦  F ( 3» I )  *  C48> 

C7  *  F(2»I)  *  (C48-(PR( I )-l. )  *  CAPC ( I > / ( PR ( I >  *  ALPH)) 

C43  +  (l.+DZ)  *  F ( 1 . I )  +  HF  (1.5) 

C48  +  CAPC ( I ) / ( ALPH  *  PR(I>> 

-<C7  *  F (2» I ) **2  *  DCAPCH  +  CAPC  (I))  *  F ( 3» I ) / ( ALPH**2 ) 

- ( C3M (L )  *  OR ( I )  +  C321/ALPH  +  2.  *  F(2.I)  *C22/ALPH  - 
F ( 2* I )  *  C7  * (F ( 2 . I >  *  C43  +  2  *  F<3»I)  *  C48)/ALPH 

CAPC (I)  *  F(3»I)/ALPH  +  ((1  +  DZ)  *  F ( 1 . 1 )  +  HF ( I »5) ) *F ( 2 » I ) 

C32  +  G ( 1  *  I )  *  ((1  +  OZ>  *  F ( 1 » I )  +  HF ( I » 5 ) ) 


C  COtCOM 
C  COECOM 
C  COECOM 
C  COECOM 

C  COECOM 
C  COECOM 
C  COECOM 
C  COECOM 
C  COECOM 
C  COECOM 
C  COECOM 
C  COECOM 

C  COECOM 
C  COECOM 

C  COECOM 
C  COECOM 
C  COECOM 

C  COECOM 
C  COECOM 
C  COECOM 
C  COECOM 
C  COECOM 

C  COECOM 
C  COECOM 
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C85 

C86 

C87 

C88 

C89 

C89 

C90 

CAPC(I) 

CASE(N) 

CBAR 

CDUM 

CF 

CH 

CHFLUX 

CH(N) 

CIJ(K*KK) 

CKl(K) 

CK2(K) 

CK3(K) 

CK4(K) 

CK5<K) 

CK6(K) 

CK9(K) 


DETA(I-l)  *  BETA  *  ALPH**2  *  RHOE ( IS) / (RHO< I ) **2)  *  C 
<0.5+OETA(I-1)  *  RHOP ( I ) / ( RHO (15*6) ) 

DSQ(I-l)  *  BETA  *  ALPH**2  *  RHOE / <12*RH0( I ) **2)  C 
C7  *  F(3*I)  *  C86  *  DRHOH  C 
C7  *  DRHOH  *  F< 2* I )  *  C85  C 
BETA  *  (ALPH  **  2)  *  CRHOl  L 
-C3  *  ALPH  *  VMUE(L)  L 
ALPH  *  DUEDGE  C 
PRODUCT  OF  OENSITY  AND  VISCOSITY  NORMALIZED  BY  EDGE  VALUE.  C 
ALPHANUMERIC  NAME  OF  CASE.  C 


VALUE  OF  THE  VELOCITY  RATIO  AT  BOUNDARY  LAYER  NODE  KAPPA.  C 

COEFFICIENT  IN  SURFACE  KINETIC  RELATION  FOR  MATERIAL  BEING  C 
CONSIDERED  UNDER  KR(9>  =  5  OR  6  (SEE  INPUT  INSTRUCTIONS). 

MOMENTUM  TRANSFER  COEFFICIENT  GIVEN  BY  CAPC(1)/ALPH  *  C 

VMUE(IS)/C89*F(3*1) 

HEAT  TRANSFER  COEFFICIENT  BASED  ON  ENTHALPY  POTENTIAL*  C 
GIVEN  BY  -WALLQ/(C3*<G<1*NETA)-G<1*1>)) 

LESS  THAN  ZERO  VALUE  IMPLIES  PRESENCE  OF  CHAR  ELEMENTS  IN  L 
SURFACE  CHEMISTRY 

CURVE  FIT  CONSTANTS  FOR  THERMODYNAMIC  DATA  (THE  QUANTITY  F2C 
+  H298  DISCUSSED  IN  GROUP  12  OF  INPUT  INSTRUCTIONS)  N=1  FOR 


LOW  AND  2  FOR  HIGH  TEMPERATURE  RANGE*  IDENTICAL  TO  CCHH+ 

GRAM  ATOM  OF  ELEMENT  K  IN  BASE  SPECIES  KK,  E 

DCAPC(K)  *  C33  ♦  DPRK(K)  *  C35  +  DSCK(K)  *  C36-DQRMK)  C 

*  C38  +  DCPTK(K)  *  C39  +  DMU12MK)  *  C40-DHTILK (K)  *  C27  + 
DTK(K)  *  C41  +  DMU3K(K)  *  C42 

DTK (K)  *  C45  +  DMU3K(K>  *  C46  +  DMU4K (K)  *  C47  C 

ZK(K)-SPU*I*K)  C 

CAPC(I)  *  ( ZK ( K ) -SP ( 1  *  I  *  K ) ) / ( ALPH  *  SC  < I > )  C 

DZKH(K)  *  (CAPC(I)/(ALPH  *  SC ( I ) ) )  ♦  DMU4H  *  CK4(K>  C 

ZKP(K)  *  (CAPC ( I )/(ALPH  *  SC < I > ) >  +  VMU4P  *  CK4(K)  C 

DZKH(K)  ♦  VMU4P  *  (CAPC ( I ) / ( ALPH  *  SC ( I ) ) )  +  CK6(K)  *  C 

DCAPCH/CAPC ( I )  -  CK6(K)  *  DSCH/SC ( I ) 


COECOM 

COECOM 

COECOM 

COECOM 

IONLY 

OUTPUT 

EDGCOM 

PRPCOM 

INTCOM 

INTCOM 

CRBCOM 

OUTCOM 

OUTCOM 

EQUIL 

EQPCOM 

EQPCOM 

COECON 

COECON 

COECON 

COECON 

COECON 

COECON 

COECON 
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CK13(K) 

CK14 (K ) 
CK15(K) 

CK 16 ( K ) 
CK17(K) 
CK18 ( K ) 

CK 19 ( K ) 
CK20 ( K ) 
CK21(K) 

CK22(K) 
CK23(K) 
CK24(K) 
CK25  ( K ) 
CK26(K) 

CKK1 (K  *  KK ) 

CKK2 ( K  *  KK ) 

CKK3 ( K  *  KK ) 
CL 

CLNUM 

CM  ( K ) 

CMF 


-DRHOK(K)  *  BETA  *  ALPH**2  *  (RHOE (L) /RHO ( I ) **2 )  * 
OETA(I-l)  *  RH0P(I)/(6*RH0<1>>). 

BKI-D  *  DPHIKH(K) 

C7  *  61(I“1)  *  OPHIKH(K)  *  F ( 3* I ) 

PHIKP(K)  *  Bl(I-l) 

DCAPCK(K)  *  F ( 3* I ) /ALPH 

SP(1*I*K)  *  (1+DZ) 

C7  *  { F  <  3  *  I )  *  CK5(K>  ♦  F(2*I>  *  CK9(K)> 

C7  *  CK5(K)  *  F  ( 2  *  I ) 

•C7  *  (F(2»I)/ALPH)  *  <F<2»I)  *  CK9(K)  +  2  *  F(3»I)  * 
CK5<K)>  -  CK6(K)/ALPH 

CK6(K)  +  SP(1 *  I  *  K )  *  ((1+DZ)  *  Fll*I)  +  HF ( I  *  5) ) 
DSQ<I-1)  *  DPHIKH(K)  /  3. 

C7  *  F(3*I>  *  CK23(K) 

DETA(I-l)  *  DPHIKH(K) 

C7  *  F(2*I)  *  CK25(K) 


C  COECOM 

C  COECON 
C  COECON 
C  COECON 
C  COECON 
C  COECON 
C  COECON 
C  COECON 
C  COECON 

C  COECON 
L  I ONLY 
L  I ONLY 
L  I ONLY 
L  IONLY 


DZKK<K*KK>  *  CAPC ( I ) / ( ALPH  *  SC (I) >  +  CK4(K)  *  DMU4K<KK)»  C  COECON 
K  TH  EQUATION*  KK  TH  ELEMENT. 

DZKK (K *KK)  *  VMU4P  *  (CAPC (I )  /  ( ALPH  *  SC ( I ) ) )  +  DCAPCK (KK)  C  COECON 
*  <CK6(K)/CAPCU)  )-DSCK(KK>  *  CK6(K)/SC(I)  (PLUS  (l.+DZ)  * 

F ( 1  *  I )  +  HF  <I*5>  “  VMU4P  *  CAPC <1 > / ( ALPH*SC (I ) )  FOR  K=KK 
ONLY),  K  TH  EQUATION*  KK  TH  ELEMENT. 

DPHIKK(K*KK)  C  COECON 

L(I)  IN  MIXING  LENGTH  FORMULATION,  SEE  REF.  1,  C  EPSCOM 

CLAUSER  NUMBER  USED  IN  DEFINING  EDDY  VISCOSITY  IN  THE  C  EPSCOM 

WAKE  PORTION  OF  THE  BOUNDARY  LAYER. 

ELEMENTAL  MASS  TRANSFER  COEFFICIENTS  BASED  ON  MASS  FRACTIONL  OUTPUT 
POTENTIAL*  GIVEN  BY  VUKW(K)/(DUM(K>*WAT(K) )  WHERE  DUM(K)  IS 
THE  SUMMATION  OVER  KK  OF  (SP( 1 *NETA*KK)  -SP( 1  *  1 *KK ) ) / 
WTM(KK)*CIJ(K*KK) 

THE  FACTOR  BY  WHICH  ALL  CORRECTIONS  ARE  DAMPED  DURING  CHEM-L  CRECT 
ISTRY  ITERATIONS. 
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CMFF(J) 

COEEQV(N) 

COEFQV(N) 

COND 

CONE 

CONEQV 

CORAR(N) 

CORMA 

CP(J) 

CPA 

CPBAR(I) 

CPF 

CPG 

CPT 

CPTIL 

CRBEQV 

CRHO(I-l) 

CRHOl 

CSP 

CT 

CTR 

CXM 

CYM 


♦ 


the  value  of  cmf  after  consideration  of  constraints  on  the  l 

CORRECTION  TO  BE  APPLIED  TO  THE  PARTIAL  PRESSURE  OF  THE  JTH 


SPECIES. 

GLOBAL  SET  OF  COEFFICIENTS  C5*C6»C7»  ETC.  E 

GLOBAL  SET  OF  COEFFICIENTS  CK1.CK2*  ETC.  E 

THERMAL  CONDUCTIVITY  L 

CONE  HALF-ANGLE  FOR  SPHERE-CONE  SHAPED  BODIES.  C 

VARIABLE  EQUIVALENCED  TO  COECON  FOR  DUMPING  PURPOSES  L 

CORRECTION  ARRAY.  COMPOSED  OF  CORRECTIONS  IN  H(I>»  I  =  1  TOE 
NETA.  AND  <SP<1»I*K>.  1=  1#  NETA>#  K=  1.  NSPM1. 

THE  VALUE  OF  THE  MAXIMUM  CORAR.  C 

SPECIFIC  HEAT.  C 

LOCALLY  OEFINEO  VARIABLE  L 

FROZEN  SPECIFIC  HEAT  OF  THE  MIXTURE.  C 

FROZEN  SPECIFIC  HEAT •  IDENTICAL  TO  CCPF+.  C 

FROZEN  SPECIFIC  HEAT  OF  GAS.  IDENTICAL  TO  CCPG+.  C 

FROZEN  SPECIFIC  HEAT  OF  GAS.  L 

PROPERTY  OF  THE  GAS  MIXTURE  WHICH  REDUCES  TO  CPBAR  FOR  C 
EQUAL  DIFFUSION  COEFFICIENTS.  SEE  EQ<28>  OF  NASA  CR-1062. 

VARIABLE  EQUIVALENCED  TO  CRBCOM  FOR  DUMPING  PURPOSES  L 

C26  *  DETA(I-l)  *  (i.-(RHOP(I)/RHO<I) >  *  DETA(I-l)/6>  C 


(RHOE(L)  /  RHOUM  *  DETA(I-l)  *  < l.+DETAl 1-1)  *  RHOP(I)  /  L 
(RHO(I)  *  6.)) 


CRECT 

COECOM 

COECON 

OUTPUT 

PRMCOM 

DUMCOM 

NONCOM 

BUMCOM 

EQTCOM 

MATER 

PRPCOM 

EQTCOM 

EQTCOM 

STATE 

PRPCOM 

DUMCOM 

PRPCOM 

IONLY 


EQUILIBRIUM  SPECIFIC  HEAT  OF  GAS.  L  EQUIL 

COEFFICIENT  APPEARING  IN  THE  APPROXIMATION  FOR  THERMAL  DIF-C  PRPCOM 

FUSION  COEFFICIENTS*  SEE  EQ(26>  OF  NASA  CR-1062.  NUMERICAL¬ 
LY  EQUAL  TO  -0,5*  SET  EQUAL  TO  ZERO  WHEN  THERMAL  DIFFUSION 
NEGLECTED. 

CT  *  UNIVERSAL  GAS  CONSTANT.  C  PRPCOM 

LOCALLY  DEFINED  VARIABLE  L  IONLY 

LOCALLY  DEFINED  VARIABLE  L  IONLY 
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CYSP 


LOCALLY  DEFINED  VARIABLE 


L  I ONLY 


D 

D 

D1 

D2 

D2UEDG 

DBAR 

DCAPCH 

DCAPCK(K) 

DCLL 

DCLPI 

DCLPM 

DCPBH 

DCPBK(K) 

DCPTH 

DCPTK(K) 

DCU(I) 

DELJW(K) 

DELQJW(N) 

DELQW 

DELST 

DEPC 

DEPS(I) 


RERAY-SET  OF  CONSTANT  VECTORS  CONVERTED  TO  SOLUTION  VECTORSL  RERAY 

TAYLOR-ARGUMENT  REPRESENTING  DELTA  ETA.  L  TAYLOR 

THE  D  SUB  ONE  OF  EQ(89)  IN  NASA  CR-1062.  L  HISTXI 

THE  D  SUB  TWO  OF  EQ(89>  IN  NASA  CR-1062.  L  HISTXI 

SECOND  DERIVATIVE  OF  UEDGE  WITH  RESPECT  TO  STREAM  FUNCTIONS  EDGCOM 
SEE  EQ<68>  OF  NASA  CR-1062  (SET  EQUAL  TO  ZERO  IN  PRESENT 
PROGRAM) , 

REFERENCE  DIFFUSION  COEFFICIENT  INTRODUCED  IN  APPROXI^ATIONL  PROPS 
FOR  UNEQUAL  DIFFUSION  COEFFICIENTS'  NUMERICALLY  EQUAL  TO 
4.16E-8  *  T  *  SORT < T >  /  (OMEGA  *  P>. 

DERIVATIVE  OF  CAPC  WITH  RESPECT  TO  H.  C  PRPCOM 

DERIVATIVE  OF  CAPC  WITH  RESPECT  TO  MASS  FRACTION  OF  ELEMENTC  PRPCOM 

K. 

DERIVITIVE  OF  CL  AT  I  WITH  RESPECT  TO  CL  AT  1-1  L  TRMBL 

DERI VITIVE  OF  CL  AT  I  WITH  RESPECT  TO  PI  AT  I  L  TRMBL 

DERIVITIVE  OF  CL  AT  I  WITH  RESPECT  TO  PIM  AT  1-1  L  TRMBL 

DERIVATIVE  OF  CP8AR  WITH  RESPECT  TO  Hr  SET  EQUAL  TO  ZERO  INC  PRPCOM 

CURRENT  PROGRAM. 

DERIVATIVE  OF  CPBAR  WITH  RESPECT  TO  MASS  FRACTION  OF  ELE-  C  PRPCOM 
MENT  K*  SET  EQUAL  TO  ZERO  IN  CURRENT  PROGRAM. 

DERIVATIVE  OF  CPTIL  WITH  RESPECT  TO  Hr  SET  EQUAL  TO  ZERO  INC  PRPCOM 
CURRENT  PROGRAM. 

DERIVATIVE  OF  CPTIL  WITH  RESPECT  TO  MASS  FRACTION  OF  ELE-  C  PRPCOM 
MENT  Kr  SET  EQUAL  TO  ZERO  IN  CURRENT  PROGRAM, 

<OETA(I))**3  C  ETACOM 

ERROR  IN  DIFFUSIVE  MASS  FLUX'  WALLJ(K)»  INTRODUCED  DURING  C  FLXCOM 
NEWTON-RAPHSON  ITERATION. 

GLOBAL  SET  DELQW  AND  DELJW ( K ) .  E  FLXCOM 

ERROR  IN  DIFFUSIVE  HEAT  FLUX'  WALLQ'  INTRODUCED  DURING  NEW-C  FLXCOM 
TON-RAPHSON  ITERATION. 

DISPLACEMENT  THICKNESS  GIVEN  BY  Y ( NETA > -C89* ( F ( 1 >NETA >  C  OUTCOM 
-F(1»1))/ALPH. 

CONSTANT  IN  CORRECTION  COEFFICIENTS  ON  EPSA(I)  RESULTING  C  EPSCOM 
FROM  LINEAR  CORRECTION  COEFFICIENTS 


DERIVATIVE  OF  EPSA (  WITH  RESPECT  TO  NONLINEAR  VARIABLES  C  EPSCOM 
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i 


OERIU 

DETA(I) 

DHTILH 

OHTILK(K) 

DIV 

OIVC 

OKPT(MK) 

DLKD 

OLPH 

DLPK(K) 

OLX1 

DLX2 

DMU12H 

DMUI2K (K) 

DMU3H 
DMU3K (K) 

0MU4H 

DMU4K(K) 

DPHIKH(K) 

DPHIKK 

(K*KK> 

DPI (3+K*2) 


DIMENSIONED  VARIABLE  USED  IN  VARIOUS  SUBROUTINES  BUT  NOT  C 
USED  FOR  TRANSMITTING  INFORMATION  BETWEEN  SUBROUTINES. 

ETA(I+1)  -  ETAd)  C 

DERIVATIVE  OF  HTIL  WITH  RESPECT  TO  H.  C 

DERIVATIVE  OF  HTIL  WITH  RESPECT  TO  MASS  FRACTION  OF  ELEMENTC 
K. 

ROW  NORMALIZING  FACTOR  IN  GAUSSIAN  ELIMINATION.  L 

PRODUCT  OF  *DIV»  AND  ELEMENT  OF  ROW.  L 

DERIVATIVE  OF  LOG  KP  WITH  RESPECT  TO  LOG  TEMPERATURE.  C 

DERIVATIVE  OF  EL(I)  WITH  RESPECT  TO  NONLINEAR  VARIABLES  C 

A (3*1)  EVALUATED  AT  THE  WALL.  C 

A(3*K+2)  EVALUATED  AT  THE  WALL.  C 

ALOG(XKL)  /  XKL-l))  L 


STORED  (HISTORIC)  VALUE  FOR  DLOGXI  DEFINED  BY  EQ(90)  OF  C 
NASA  CR‘1062. 

DERIVATIVE  OF  VMU12  WITH  RESPECT  TO  H*  SET  EQUAL  TO  ZERO  INC 
CURRENT  PROGRAM. 

DERIVATIVE  OF  VMU12  WITH  RESPECT  TO  MASS  FRACTION  OF  ELE-  C 
MENT  K*  SET  EQUAL  TO  ZERO  IN  PRESENT  PROGRAM. 

DERIVATIVE  OF  VMU3  WITH  RESPECT  TO  H.  C 

DERIVATIVE  OF  VMU3  WITH  RESPECT  TO  MASS  FRACTION  OF  ELEMENTC 
K. 

DERIVATIVE  WITH  RESPECT  TO  H  OF  THE  COEFFICIENT  MU4  DEFINEDC 
IN  EQ(2B)  OF  NASA  CR-1062, 

DERIVATIVE  WITH  RESPECT  TO  MASS  FRACTION  OF  ELEMENT  K  OF  C 
THE  COEFFICIENT  MU4  DEFINED  IN  EQ(28>  OF  NASA  CR-1062. 

DERIVATIVE  OF  PHIK  WITH  RESPECT  TO  H*  SET  EQUAL  TO  ZERO  IN  C 
CURRENT  PROGRAM. 

DERIVATIVE  OF  K  TH  PHIK  WITH  RESPECT  TO  MASS  FRACTION  OF  C 
ELEMENT  KK*  SET  EQUAL  TO  ZERO  IN  CURRENT  PROGRAM, 

(ARRAY  OF  DERIVATIVES  OF  PI  WITH  RESPECT  TO  PRIMARY  VARI-  C 
ABLES) /TREF 


TEMCOM 

ETACOM 

PRPCOM 

PRPCOM 

RERAY 

RERAY 

KINCOM 

EPSCOM 

NONCOM 

NONCOM 

HISTXI 

HISCOM 

PRPCOM 

PRPCOM 

PRPCOM 

PRPCOM 

PRPCOM 

PRPCOM 

PRPCOM 

PRPCOM 

EPSCOM 
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DPRH 

DPRK(K) 

DQJNL(N) 

DQJRNL(N) 

DQNL(N» 

DQRH 

OQRK(K) 

DRHOH 

DRHOI 

DRHOK(K) 

DRNL(N) 

DSCH 

DSCK(K) 

DSIP(L) 

DSQU) 

DSV 

DTD 

DTEMP 

DTH 

OTHW 


DERIVATIVE  OF  PR  WITH  RESPECT  TO  H*  SET  EQUAL  TO  ZERO  IN  C 
CURRENT  PROGRAM. 

DERIVATIVE  OF  PR  WITH  RESPECT  TO  MASS  FRACTION  OF  ELEMENT  KC 
SET  EQUAL  TO  ZERO  IN  CURRENT  PROGRAM. 

GLOBAL  SET  OF  DQNL  AND  DJNL(K).  E 

DERIVATIVE  OF  DIFFUSIVE  HEAT  AND  MASS  FLUXES*  WALLQJ  WITH  E 
RESPECT  TO  NTH  REDUCED  NONLINEAR  VARIABLE. 

DERIVATIVE  OF  DIFFUSIVE  HEAT  FLUX*  WALLG*  WITH  RESPECT  TO  NC 
TH  NONLINEAR  VARIABLE* 

DERIVATIVE  OF  QR  WITH  RESPECT  TO  H*  SET  EQUAL  TO  ZERO  IN  C 
CURRENT  PROGRAM. 

DERIVATIVE  OF  QR  WITH  RESPECT  TO  MASS  FRACTION  OF  ELEMENT  KC 
SET  EQUAL  TO  ZERO  IN  CURRENT  PROGRAM. 

DERIVATIVE  OF  RHO  WITH  RESPECT  TO  H.  X 

DERIVITI VE  OF  VELOCITY  DEFECT  THICKNESS  WITH  RESPECT  TO  L 
RHO  AT  I 

DERIVATIVE  OF  RHO  WITH  RESPECT  TO  MASS  FRACTION  OF  ELEMENT  C 

K. 


REDUCED  NONLINEAR  ERRORS  BEFORE  MATRIX  INVERSION*  CORREC-  C 
TIONS  OF  VARIABLES  IN  REDUCED  NONLINEAR  SET  AFTER  MATRIX 
INVERSION. 

DERIVATIVE  OF  SC  WITH  RESPECT  TO  H*  SET  EQUAL  TO  ZERO  IN  C 
CURRENT  PROGRAM. 

DERIVATIVE  OF  SC  WITH  RESPECT  TO  MASS  FRACTION  OF  ELEMENT  KC 


SET  EQUAL  TO  ZERO  IN  CURRENT  PROGRAM. 

DECREASE  IN  ENTROPY  FROM  PREVIOUS  STATION  TO  CURRENT  STA-  C 
TION  L  AT  BOUNDARY  LAYER  EDGE  DUE  TO  SHOCK  CURVATURE 
<DSIP<1)=  0  BY  DEFINITION). 

<0ETA(I)>**2  C 

LOCALLY  DEFINED  VARIABLE  L 

DOWNWARD  TEMPERATURE  STEP  USED  IN  SEEKING  SURFACE  EGUILIB-  L 
RIUM  SOLUTION. 

PREDICTED  CHANGE  IN  SURFACE  TEMPERATURE  FOR  THE  CURRENT  L 
ITERATION  DURING  A  KR<9)=6  PROBLEM, 

DERIVATIVE  OF  T  WITH  RESPECT  TO  H.  C 

DTH  EVALUATED  AT  THE  WALL.  C 


PRPCOM 

PRPCOM 

FLXCOM 

NONCOM 

FLXCOM 

PRPCOM 

PRPCOM 

PRPCOM 

TRMBL 

PRPCOM 

ERRCOM 

PRPCOM 

PRPCOM 

EDGCOM 

ETACOM 

MATS1 

EQUIL 

NONCER 

PRPCOM 

NONCOM 
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DTK(K)  DERIVATIVE  OF  T  WITH  RESPECT  TO  MASS  FRACTION  OF  ELEMENT  K.C  PRPCOM 


DTKW(K)  OTK  EVALUATED  AT  THE  WALL.  C  NONCOM 

DTM  LIMIT  VALUE  OF  DELTA  (l./T)  IN  CHEMISTRY  SOLUTION.  L  CRECT 

DTU  UPWARD  TEMPERATURE  STEP  USED  IN  SEEKING  SURFACE  EQUILIBRIUML  EQUIL 

SOLUTION. 

DUB2  L  INPUT 

DUB3  LOCALLY  INPUT  VARIABLES.  IF  NON-ZERO  ASSIGNED  TO  FITMOL.  L  INPUT 

DUB4  BASMOL*  SIGMA  AND  EPOVRK.  RESPECTIVELY  L  INPUT 

DUBS  L  INPUT 

DUDS(L)  DERIVATIVE  OF  EDGE  VELOCITY  WITH  RESPECT  TO  S  IN  REFCON*  C  TEMCOM 

TEMPORARY  STORAGE  AREA  IN  OTHER  ROUTINES. 


DUEDGE  DERIVATIVE  UEDGE  WITH  RESPECT  TO  STREAM  FUNCTION.  SEE  EQC68C  EDGCOM 

OF  NASA  CR-1062  (SET  EQUAL  TO  ZERO  IN  PRESENT  PROGRAM). 

DUES  DERIVATIVE  OF  EDGE  VELOCITY  WITH  RESPECT  TO  STREAMWISE  COORC  EDGCOM 

DINATE  S. 


DUM 

LOCALLY 

DEFINED 

VARIABLE 

L 

EQUIL 

DUM 

LOCALLY 

DEFINED 

VARIABLE 

L 

ETIMEF 

DUM 

LOCALLY 

DEFINED 

VARIABLE 

L 

FIRSTG 

DUM 

LOCALLY 

defined 

VARIABLE 

L 

KINET 

DUM 

LOCALLY 

defined 

VARIABLE 

L 

MATS1 

DUM 

LOCALLY 

defined 

VARIABLE 

L 

NONCER 

DUM 

LOCALLY 

defined 

VARIABLE 

L 

TRMBL 

DUM1 

LOCALLY 

defined 

VARIABLE 

L 

CRECT 

OUM1 

LOCALLY 

DEFINED 

VARIABLE 

L 

EQUIL 

OUM1 

LOCALLY 

defined 

VARIABLE 

L 

FIRSTG 

DUM1 

LOCALLY 

defined 

VARIABLE 

L 

ICOEFF 

DUM1 

LOCALLY 

defined 

VARIABLE 

L 

IMONE 

DUM1 

LOCALLY 

defined 

VARIABLE 

L 

IONLY 

DUM1 

LOCALLY 

oefineo 

VARIABLE 

L 

KINET 

DUM1 

LOCALLY 

defined 

VARIABLE 

L 

LINCER 

DUM! 

LOCALLY 

defined 

VARIABLE 

L 

MATER 
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DUM1 

LOCALLY 

defined 

VARIABLE 

L 

NONCER 

0UH1 

LOCALLY 

defined 

VARIABLE 

L 

OUTPUT 

DUM1 

LOCALLY 

defined 

VARIABLE 

L 

REFCON 

DUM1 

LOCALLY 

defined 

VARIABLE 

L 

RNLCER 

DUM1 

LOCALLY 

defined 

VARIABLE 

L 

TRMBL 

DUM2 

LOCALLY 

defined 

VARIABLE 

L 

EQUIL 

OUM2 

OCALLY 

defined 

VARIABLE 

L 

FIRSTG 

DUM2 

LOCALLY 

defined 

VARIABLE 

L 

ICOEFF 

OUM2 

LOCALLY 

defined 

VARIABLE 

L 

IMONE 

DUM2 

LOCALLY 

defined 

VARIABLE 

L 

I  ONLY 

DUM2 

LOCALLY 

defined 

VARIABLE 

L 

KINET 

DUM2 

LOCALLY 

defined 

VARIABLE 

L 

LINCER 

DUM2 

LOCALLY 

defined 

VARIABLE 

L 

MATER 

DUM2 

LOCALLY 

defineo 

VARIABLE 

L 

OUTPUT 

DUM2 

LOCALLY 

defined 

VARIABLE 

L 

RNLCER 

DUM2 

LOCALLY 

oefined 

VARIABLE 

L 

TRMBL 

DUM3 

LOCALLY 

defined 

VARIABLE 

L 

FIRSTG 

DUM3 

LOCALLY 

defined 

VARIABLE 

L 

IMONE 

DUM3 

LOCALLY 

defined 

VARIABLE 

L 

IONLY 

0UM3 

LOCALLY 

defined 

VARIABLE 

L 

LINCER 

OUM3 

LOCALLY 

defined 

VARIABLE 

L 

OUTPUT 

DUM3 

LOCALLY 

defined 

VARIABLE 

L 

TRMBL 

DUM4 

LOCALLY 

defined 

VARIABLE 

L 

IMONE 

DUM4 

LOCALLY 

defined 

VARIABLE 

L 

IONLY 

DUM4 

LOCALLY 

defined 

VARIABLE 

L 

LINCER 

DUM4 

LOCALLY 

defined 

VARIABLE 

L 

OUTPUT 

DUM5 

LOCALLY 

defined 

VARIABLE 

L 

IMONE 

DUM5 

LOCALLY 

defined 

VARIABLE 

L 

IONLY 

DUM5 

LOCALLY  DEFINED  VARIABLE 

DUH6 

LOCALLY  DEFINED  VARIABLE 

0UM6 

LOCALLY  DEFINED  VARIABLE 

DUM7 

LOCALLY  DEFINED  VARIABLE 

DUMB 

LOCALLY  DEFINED  VARIABLE 

DUMP 

P  *  10**7,  LIMIT  PRESSURE  IN  CONTROLLING  DAMPING  OF  CHEM¬ 
ISTRY  SOLUTION. 

DUZ 

LOCALLY  DEFINED  VARIABLE 

DVNL(N) 

DAMPED  NONLINEAR  CORRECTIONS  (GIVEN 
1062  MULTIPLIED  BY  EASE). 

BY  EQ( 156)  OF  NASA 

CR' 

DY<J> 

CORRECTION  ON  VARIABLE  Y(J)*  IN  CHEMISTRY  SOLUTION. 

DVS 

VELOCITY  DEFECT  THICKNESS  OVER  DEL. 

DYI 

DAMPED  CORRECTION  ON  VARIABLE  Y(J)* 

IN  CHEMISTRY  SOLUTION 

DZ 

THE  D  SUB  ZERO  OF  EQ(89)  IN  NASA  CR-1062. 

OZKH(K) 

DERIVATIVE  OF  ZK  WITH  RESPECT  TO  H. 

DZKKtK.KK) 

DERIVATIVE  OF  K  TH  ZK  WITH  WITH  RESPECT  TO  MASS  FRACTION  I 
ELEMENT  KK. 

E(N) 

ERRORS  IN  CHEMISTRY  EQUATIONS  (MASS 

BALANCE  ERRORS  FOR 

N 

EQUAL  TO  OR  LESS  THAN  IS*»  EQUILIBRIUM  ERRORS  FOR  N  GREATER 
THAN  IS**  WHERE  IS*  IS  NUMBER  OF  ELEMENTS  INCLUDING  ELEC¬ 
TRON)  . 

EAB  ABSOLUTE  VALUE  OF  EQUILIBRIUM  ERROR  FOR  A  SPECIES  IN  CHEM-  L 

ISTRY  SOLUTION. 

EAK(MK)  ACTIVATION  ENERGY,  C 

EASE  DAMPING  FACTOR*  APPLIED  UNIFORMLY  TO  ALL  CORRECTIONS.  C 

EB(K)  MAGNITUDE  OF  LARGEST  CONTRIBUTION  TO  K  TH  MASS  BALANCE.  C 

EBL(K)  MINIMUM  CONTRIBUTION  ACCEPTED  TO  K  TH  MASS  BALANCE*  C 

=EB/(10**9> 

ECD(N)  RESIDUAL  ERROR  IN  CONDENSED  EQUILIBRIUM  IMPOSED  IN  CHEMIS-  L 

TRY  SOLUTION  AS  A  CONSEQUENCE  OF  BOUNDARY  LAYER  DAMPING. 

ECRP  LIMIT  CHANGE  OF  CONDENSED  SPECIES  QUANTITIES  DURING  CHEMIS-C 

TRY  ITERATION, 

ECRT  NOT  CURRENTLY  USED.  C 


LINCER 

IMONE 

LINCER 

IMONE 

IMONE 

CRECT 

OUTPUT 

NONCOM 

EQTCOM 

EPSCOM 

CRECT 

HISTXI 

PRPCOM 

PRPCOM 

EQTCOM 

MATER 

KINCOM 

BUMCOM 

EQTCOM 

EQTCOM 

MATER 

EQTCOM 

EQTCOM 
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EDGEQV 

EER 

EESE(N) 

£62 

E63 

EHS 

EL 

EL(  I ) 

ELCON 

ELK 

ELKM 

ELM(N) 

ELMM 

EMIS 

EMISC 

EMIST 

EMI  V 

ENL 

ENL<N> 

ENLM(N) 

ENLMM 

EOL 


VARIABLE  EOUIVALENCEO  TO  EDGCOM  FOR  DUMPING  PURPOSES  L 

EQUILIBRIUM  ERROR  OF  CONDENSED  SPECIES  BEING  INTRODUCED  L 
DURING  CURRENT  ITERATION. 

RESIDUAL  ERROR  IN  MASS  BALANCE  IMPOSED  IN  CHEMISTRY  SOLU-  L 
TION  AS  A  CONSEQUENCE  OF  BOUNDARY  LAYER  DAMPING. 

CONTRIBUTION  TO  THERMAL  FLUX  DUE  TO  INEQUALITY  OF  TUR8U-  L 


LENT  PRANDTL  AND  SCHMIDT  NUMBERS 

CONTRIBUTION  TO  THERMAL  FLUX  DUE  TO  TURBULENT  VISCOUS  L 

DISSIPATION 

ERROR  IN  ENTHALPY  OR  ENTROPY  FOR  ASSIGNED  ENTHALPY  OR  EN-  L 
TROPY  CHEMISTRY  SOLUTIONS. 

MAXIMUM  EQUILIBRIUM  ERROR*  IDENTICAL  TO  EEL+.  C 

MIXING  LENGTH  NORMALIZED  BY  DEL.  C 

MIXING  LENGTH  CONSTANT  AS  IN  L=ELCON*Y.  C 

LOG  OF  EQUILIBRIUM  IMBALANCE  OF  KINETIC  REACTION.  L 

LOG  OF  NON-EQUILIBRIUM  OF  KINETIC  RELATION  L 

GLOBAL  SET  OF  MAXIMUM  VALUES  OF  ERRORS  FOR  VARIOUS  SETS  OF  C 
TAYLOR  SERIES  EXPANSIONS. 

MAXIMUM  VALUE  OF  ELM(N>.  C 


SURFACE  EMITTANCE  OF  THE  MATERIAL  BEING  CONSIDERED  UNDER  C 
KR<9>  =  3*4.5  OR  6. 

SURFACE  EMITTANCE  OF  THE  MATERIAL  BEING  CONSIDERED  UNDER  C 
KR(9)  =  3  OR  4. 

SURFACE  EMITTANCE  OF  THE  MATERIAL  BEING  CONSIDERED  UNDER  C 
KR(9)  :  5  OR  6. 

SURFACE  EMISIVITY  C 

MAXIMUM  MASS  BALANCE  ERROR*  IDENTICAL  TO  EENL+.  C 

GLOBAL  SET  OF  ERRORS  FOR  LINEARIZED  CONSERVATION  EQUATIONS  C 
AND  BOUNDARY  CONDITIONS. 

GLOBAL  SET  OF  MAXIMUM  VALUES  OF  ERRORS  FOR  THE  VARIOUS  SETSC 
OF  LINEARIZED  CONSERVATION  EQUATIONS  AND  BOUNDARY  CONDI¬ 
TIONS. 

LARGEST  VALUE  OF  ENLM,  C 

MULTIPLYING  FACTOR  USED  TO  SMOOTHLY  TRANSFORM  KINETIC  MASS  L 
BALANCE  TO  EQUIVALENT  EQUILIBRIUM  EQUATION. 


dumcom 

MATER 

MATER 

TRMBL 

TRMBL 

MATER 

EQTCOM 

EPSCOM 

EPSCOM 

KINET 

KINET 

ERRCOM 

ERRCOM 

CRBCOM 

CRBCOM 

CRBCOM 

CRBCOM 

EQTCOM 

ERRCOM 

ERRCOM 

ERRCOM 

KINET 
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EP 

EPSA(I) 

EPI 

EPOVRK 

EPS 

EPS1 

EPS2 

EPSOUT 

EQPEQV 

EQTEQV 

ER 

ERPP1 

ERPP2 

ERP1 
ERP2 
ERREQV 
ETA( I ) 

ETAEQV 

ETAT 

EXEL 

EXK(MK) 

F (N* I ) 

FAMOA(J) 

FAMOBtJ) 


ERROR  IN  OVERALL  PRESSURE  BALANCE.  L 
RH0<I)**2*<EDDY  VISCOSITY)/(RHOE(L)*VMUE(L) ) .  C 
LOCALLY  DEFINED  VARIABLE  L 
EPSILON/K*  OF  REFERENCE  SPECIES  IN  DIFFUSION  CALCULATIONS  C 
KINEMATIC  EDDY  VISCOSITY  L 
KINEMATIC  EDDY  VISCOSITY  IN  WALL  REGION  C 
KINEMATIC  EDDY  VISCOSITY  IN  WAKE  REGION  L 
VARIABLE  EQUIVALENCED  TO  EPSCOM  FOR  OUTPUT  PURPOSES  L 
VARIABLE  EQUIVALENCED  TO  EGPCOM  FOR  DUMPING  PURPOSES  L 
VARIABLE  EQUIVALENCED  TO  EQTCOM  FOR  DUMPING  PURPOSES  L 
ERROR  IN  MASS  BALANCE  RELATION.  L 


DERIVITIVE  OF  DAWSON  FUNCTION  WITH  RESPECT  OT  ITS  ARGUMENT  L 
AT  I 

DERIVITIVE  OF  DAWSON  FUNCTION  WITH  RESPECT  TO  ITS  ARGUMENT  L 
AT  1-1 

DAWSON  FUNCTION  OF  ARGUMENT  AT  I  L 

DAWSON  FUNCTION  OF  ARGUMENT  AT  1-1  L 

VARIABLE  EQUIVALENCED  TO  ERRCOM  FOR  DUMPING  PURPOSES  L 

TRANSFORMED  COORDINATE  IN  A  DIRECTION  NORMAL  TO  THE  SURFACEC 
DEFINED  BY  EQ  <33)  OF  NASA  CR-1062. 

VARIABLE  EQUIVALENCED  TO  ETACOM  FOR  DUMPING  PURP0SE5  L 

LOCALLY  DEFINED  VARIABLE  L 

RATIO  OF  FORWARD  TO  REVERSE  DRIVING  POTENTIAL  IN  KINETIC  L 
EQUATIONS. 

ALWAYS  SET  TO  1.0*  (REACTION  EXPONENT).  C 

STREAM  FUNCTION  (N=l>*  VELOCITY  RATXO  (N=2>  AND  DERIVATIVESC 
OF  ORDER  N-2  OF  VELOCITY  RATIO  WITH  RESPECT  TO  ETA. 

ALPHANUMERIC  VARIABLE*  FIRST  OF  TWO  PORTIONS  OF  SPECIES  C 
NAME.  IDENTICAL  TO  MOA+, 

ALPHANUMERIC  VARIABLE*  SECOND  OF  TWO  PORTIONS  OF  SPECIES  C 
NAME.  IDENTICAL  TO  MOB*. 


MATER 

EPSCOM 

TRMBL 

EQTCOM 

TRMBL 

EPSCOM 

TRMBL 

TRMBL 

DUMCOM 

dumcom 

MATER 

TRMBL 

TRMBL 

TRMBL 

TRMBL 

DUMCOM 

ETACOM 

DUMCOM 

FIRSTG 

KINET 

KINCOM 

VARCOM 

BLQCOM 

BLQCOM 
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FD(N) 

FF  ( J ) 

FFA 

FFAR 

FFF 

FFIN(J) 

FFK2 

FITMOL 

FKF(MK) 

FLD(N.NN) 

FLE<N) 

FLEM 

FLIO 

FLPEQV 

FLUXJ 

(N*L.l) 

FLXEQV 
FM(  J) 

FN 


D1  *  F(N+1»I)  +  02  *  HF(I.NM)  FOR  N=1  THROUGH  3 .  D1  *  F<4*L 
I-D+D2  *  HF(I-1»4)  FOR  N=4. 

DIFFUSION  FACTOR  INTRODUCED  BY  THE  APPROXIMATION  FOR  DIFFU-C 
SION  COEFFICIENTS  BY  EQ(19>  OF  NASA  CR-1062. 

POWER  ON  MOLECULAR  WEIGHT  IF  IT  IS  ASSUMED  THAT  THE  DIFFU-  C 
SION  FACTORS*  FF(j).  ARE  PROPORTIONAL  TO  SPECIES  MOLECULAR 
WEIGHTS*  WTM(J) .RAISED  TO  A  POWER. 

POWER  ON  MOLECULAR  WEIGHT  READ  IN  IF  IT  IS  ASSUMED  THAT  THEL 
DIFFUSION  FACTORS.  FF(J).  ARE  PROPORTIONAL  TO  SPECIES 
MOLECULAR  WEIGHTS.  WTM(J).  RAISED  TO  A  POWER  OTHER  THAN  0.5 
RATIO  OF  GAS  MOLECULAR  WEIGHT  TO  • VMU2* •  L 

DIFFUSION  FACTOR.  FF(J)»  WHICH  IS  READ  IN.  L 

PARAMETER  SET  EQUAL  TO  WM/VMU2  FOR  EQUAL  DIFFUSION  COEFFI-  L 
CIENTS  (KKR<14>=2)  AND  TO  FF(K>  FOR  UNEQUAL  DIFFUSION  CO¬ 
EFFICIENTS  (KKR(l4)=0  OR  1). 

CONSTANT  IN  CURVE  FIT  OF  DIFFUSION  FACTORS  BASED  ON  L 

MOLECULAR  WEIGHTS 

PRE-EXPONENTIAL  FACTOR.POUND  MOLES  OF  REACTANT  PER  SECOND  C 
PER  FT**2. 

CURVE  FIT  CONSTANTS  FOR  THERMODYNAMIC  DATA  FOR  THE  FLUID  C 
MIXTURE  IN  KR(7)=1  OPTION  (SIMILAR  TO  THE  QUANTITIES  DIS¬ 
CUSSED  IN  GROUP  12  OF  THE  INPUT  INSTRUCTIONS).  NN=  1*2  OR 
3  FOR  TEMPERATURE  RANGES  LESS  THAN  3600  DEG  R.  EQUAL  TO  OR 
GREATER  THAN  3600  DEG  R  BUT  LESS  THAN  5400  DEG  R.  OR*  EQUAL 
TO  OR  GREATER  THAN  5400  DEG  R»  RESPECTIVELY.  N  REFERS  TO 
COMPONENT  OF  THE  NONREACTING  FLUID  MIXTURE. 

ERROR  FOR  THE  TAYLOR  SERIES  EXPANSIONS  INVOLVING  F( 1 » I )  ANDC 


THEIR  DERIVATIVES, 

MAXIMUM  VALUE  OF  FLE<N).  C 

FRACTION  OF  A  SPECIES  WHICH  IS  LIQUID.  C 

VARIABLE  EQUIVALENCED  TO  FLPCOM  FOR  DUMPING  PURPOSES  L 

CONVERGED  VALUE  FOR  MASS  FLUX  OF  COMPONENT  N  INTO  THE  C 

BOUNDARY  LAYER  AT  THE  WALL*  N  1  TO  3  FOR  EDGE  GAS* 
PYROLYSIS  GAS  AND  CHAR*  RESPECTIVELY. 

VARIABLE  EQUIVALENCED  TO  FLXCOM  FOR  DUMPING  PURPOSES  L 

3  IF  UNIMPORTANT  SPECIES  (NOT  SIGNIFICANT  IN  ANY  MASS  BAL-  C 
ANCE).  OTHERWISE  1. 

LOCALLY  DEFINED  VARIABLE  L 


HISTXI 

EQPCOM 

EQPCOM 

INPUT 

MATER 

INPUT 

PROPS 

INPUT 

KINCOM 

STTCOM 

ERRCOM 

ERRCOM 

EQTCOM 

DUMCOM 

WALCOM 

DUMCOM 

EQTCOM 

ERP 
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FNLEM 

FNU(K) 

FPPW 
FR ( J» I ) 
FW<L*1) 
FwCON(L) 

FWDUM(L) 

G(N* I ) 

GAM 

GAM1 

GAMF(K) 

GAMH(K) 

GAMK(K*KK) 

GD(N) 

GE(M) 

GLE(N) 

GLEM 
GMR 
GNLEM 
GW 
H  ( I ) 

H(J) 

HALPH 

HCAR0 

HCH 


ERROR  FOR  THE  LINEARIZED  MOMENTUM  EQUATIONS  AND  BOUNDARY  C 


CONDITIONS. 

VNU(J.K)  FOR  CURRENT  J.  C 
F (3* 1)  PRINTED  IN  ONE-LINE-PER-ITERATION  OUTPUT.  L 
MOLE  FRACTION.  C 
CONVERGED  VALUE  OF  STREAM  FUNCTION  AT  SURFACE  OF  BODY.  C 


INTEGRAND  IN  calculation  OF  FW  IN  REFCON*  TEMPORARY  STOR-  C 
AGE  AREA  IN  OTHER  ROUTINES. 

FW  *  SQRT<2*XI)  IN  REFCON.  TEMPORARY  STORAGE  AREA  IN  OTHER  C 
ROUTINES. 

TOTAL  ENTHALPY  (N=l)  AND  ITS  DERIVATIVES  OF  ORDER  N-l  WITH  C 


RESPECT  TO  ETA. 

ISENTROPIC  EXPONENT.  L 

ISENTROPIC  EXPONENT  FOR  HOMOGENEOUS  MIXTURE  C 

DEFINED  BY  EQ(79)  OF  NASA  CR-1064.  C 

DEFINED  BY  £Q(S0)  OF  NASA  CR-1064.  C 

DEFINED  8Y  EQ  (81)  OF  NASA  CR-1064.  E 

D1  *  G(N»I)  +  D2  *  HG(I»N)  FOR  N=l  THROUGH  3*  D1  *  G(3*I-1>L 
♦  D2  *HG(I°1»3>  FOR  N=4, 

STAGNATION  ENTHALPY  AT  BOUNDARY  LAYER  EDGE.  C 

ERROR  FOR  THE  TAYLOR  SERIES  EXPANSIONS  INVOLVING  G(1*I>  ANDC 
THEIR  DERIVATIVES, 

MAXIMUM  VALUE  OF  GLE(N).  C 

ISENTROPIC  EXPONENT  FROM  EQUILIBRIUM  CALCULATION  C 

ERROR  FOR  THE  LINEARIZED  ENERGY  CONSERVATION  EQUATIONS.  C 

FIRST  GUESS  FOR  WALL  ENTHALPY  WHICH  IS  READ  IN  WHEN  KR<2>=0L 

STATIC  ENTHALPY  OF  THE  MIXTURE*  IDENTICAL  TO  HH*.  C 

ENTHALPY*  IDENTICAL  TO  HH+.  C 

STORED  (HISTORIC)  VALUE  OF  ALPH  ONE  STATION  UPSTREAM,  C 

HEAT  OF  FORMATION  AT  298  DEG.  K  OF  THE  SURFACE  MATERIAL  BE-C 

ING  CONSIDERED  UNDER  KR(9>  =  3  OR  4. 

CHAMBER  (OR  STAGNATION)  ENTHALPY,  L 


ERRCOM 

EQTCOM 

ITERAT 

BLQCOM 

WALCOM 

TEMCOM 

TEMCOM 

VARCOM 

EQUIL 

STTCOM 

EQTCOM 

EQTCOM 

NONCOM 

HISTXI 

PRMCOM 

ERRCOM 

ERRCOM 

PRPCOM 

ERRCOM 

FIRSTG 

PRPCOM 

EQTCOM 

HISCOM 

CRBCOM 

EQUIL 
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HCHAR 

HCWAL 

HE 

HET 

HF(I*N) 

H6 

HG( I *N) 

HH  ( I ) 

HH(  J) 

HIP 

HISEQV 

HISTKN) 

HIST2«N) 

HIST3<N) 

HIST4(N) 

HM(J) 

HMAT 

HMELT 

HOS 

HP 

HPG 

HPYG 

HSPU*N*K) 

HTEF 

HTIL 


CHAR  ENTHALPY  C 

ENTHALPY  OF  SURFACE  SPECIES  DURING  KR<9)  =  3  OR  4  OPTIONS.  C 

STATIC  ENTHALPY  OF  GAS  AT  BOUNDARY-LAYER  EDGE.  C 

TOTAL  ENTHALPY  OF  GAS  AT  BOUNDARY-LAYER  EDGE.  L 

STORED  (HISTORIC)  VALUE  OF  F<N*I)  ONE  STATION  UPSTREAM  FOR  C 
N=1  THROUGH  4*  HF ( I »5)  =  Dl*F(l»I)  +  D2*HF(I*1)  WHERE  D1 
AND  D2  ARE  DEFINED  BY  EQ(88)  OR  (89)  OF  NASA  CR-1062. 

ENTHALPY  OF  GAS*  IDENTICAL  TO  HHG+ .  C 

STORED  (HISTORIC)  VALUE  OF  G(N*I)  ONE  STATION  UPSTREAM.  C 

STATIC  ENTHALPY  OF  THE  MIXTURE*  IDENTICAL  TO  H+.  C 

ENTHALPY*  IDENTICAL  TO  H«J)*.  C 

ENTHALPY  INPUT.  C 

VARIABLE  EQUIVALENCED  TO  HlSCOM  FOR  DUMPING  PURPOSES  L 

SET  OF  VARIABLES  STARTING  WITH  XI (1)  TO  BE  STORED  ON  TAPE.  E 


SET  OF  VARIABLES  STARTING  WITH  PE (1*1)  TO  BE  STORED  ON  TAPEE 

SET  OF  VARIABLES  STARTING  WITH  F(l*l>  TO  BE  STORED  ON  TAPE.E 

SET  OF  VARIABLES  STARTING  WITH  FW(1*1)  TO  BE  STORED  ON  TAPEE 

ENTHALPY  OF  FUSION.  C 

HEAT  OF  FORMATION  AT  29B  DEG.  K  OF  THE  MATERIAL  BEING  CON-  C 
SIDERED  UNDER  KR<9)  =  3*4*5  OR  6. 

HM( J)  IF  J  TH  SPECIES  IS  CHANGING  PHASE*  OTHERWISE  0.  C 

ENTHALPY  OR  ENTROPY  OF  SPECIES  IN  ASSIGNED  ENTHALPY  OR  EN-  L 
TROPY  CHEMISTRY  SOLUTION. 

DERIVATIVE  OF  H  WITH  RESPECT  TO  ETA.  C 

HEAT  OF  FORMATION  AT  298  DEG.  K  OF  THE  PYROLYSIS  GAS  BEING  C 
CONSIDERED  UNDER  KR(9)  =  3  OR  4, 

PYROLYSIS  GAS  ENTHALPY  C 

STORED  (HISTORIC)  VALUE  OF  SP(N*I*K>  ONE  STATION  UPSTREAM.  C 

HEAT  OF  FORMATION  AT  298  DEG.  K  OF  THE  MATERIAL  BEING  CON-  C 
SIDERED  UNDER  KR(9)  =  5  OR  6. 

PROPERTY  OF  THE  GAS  MIXTURE  WHICH  REDUCES  TO  H( I )  FOR  EQUALC 
DIFFUSION  COEFFICIENTS*  SEE  EQ(28)  OF  NASA  CR-1062* 


CRBCOM 

EQPCOM 

EDGCOM 

STATE 

HlSCOM 

EQTCOM 

HlSCOM 

PRPCOM 

EQTCOM 

EQTCOM 

DUMCOM 

HlSCOM 

EDGCOM 

VARCOM 

WALCOM 

EQPCOM 

CRBCOM 

EQTCOM 

MATER 

PRPCOM 

CRBCOM 

CRBCOM 

HlSCOM 

CRBCOM 

PRPCOM 


HTILP 

DERIVATIVE  OF  HTIL 

WITH  RESPECT  TO  ETA. 

C 

PRPCOM 

HW(L.l) 

CONVERGED  ENTHALPY 

OF  GAS  AT  THE  WALL. 

C 

WALCOM 

I 

INDEX  ON  ETA*  1=1* 

AT  WALL*  IDENTICAL  TO  II*. 

11 

LOCAL  INDEX 

L 

KINET 

1777  VARIABLE  TO  CHECK  IF  SUBROUTINE  HAS  PREVIOUSLY  BEEN  ENTEREDC  BUMCOM 

IAST  ASSIGNED  THE  VALUE  COMMA  (*>  THROUGH  A  DATA  STATEMENT  FOR  L  BLIMP 

USE  IN  TEST  OF  WHETHER  THERE  IS  TO  BE  ANOTHER  CASE* 

IB(K)  INDEX  ON  SPECIES  WITH  LARGEST  CONTRIBUTION  TO  K  TH  MASS  BALC  EQTCOM 

ANCE*  SUBSEQUENTLY  ORDERED  ON  IB  WITH  DUPLICATES  SET  TO 

1000. 

IBLANK  ASSIGNED  THE  VALUE  BLANK  (  )  THROUGH  A  DATA  STATEMENT  FOR  L  OUTPUT 

USE  IN  TEST  OF  WHETHER  THERE  IS  TO  BE  ANY  PUNCHED  CARD  OUT¬ 
PUT. 

IC IK)  NEGATIVE  INDEX  OF  ELEMENT  CORRESPONDING  TO  KTH  BASE  SPECIESL  INPUT 


ICORM  INDEX  CORRESPONDING  TO  CORMA  IN  THE  CORAR  ARRAY.  C  BUMCOM 

ICT  CYCLE  COUNTER  ON  POST  INVERSION  MODIFICATION  IN  CHEMISTRY  L  EQUIL 

SOLUTION 

IDENT  ALPHANUMERIC  IDENTIFICATION  SYMBOL  APPEARING  ON  PUNCHED  C  INTCOM 

CARD  DATA  <NO  CARDS  PUNCHED  IF  IDENT  IS  INPUT  AS  A  BLANK). 

IDISC(L)  CONTROL  VARIABLE  FOR  DISCONTINUITY  (l  IF  DISCONTINUITY*  C  PRMCOM 

OTHERWISE  0). 

IOSIP  ITEM  WHEN  DSIP  IS  TO  BE  UPDATED.  C  EDGCOM 

IDUM  LOCALLY  DEFINED  VARIABLE  L  SETUP 

IE  EQUATION  INDEX  FOR  CONDENSED  SPECIES.  L  MATER 

IENLM  INDICIES  ON  MAXIMUM  NON  LINEAR  ERRORS  FOR  EACH  SET  OF  L  RNLCER 

CONSERVATION  EQUATIONS 

IENLM  INDICIES  ON  MAXIMUM  NON  LINEAR  ERRORS  FOR  EACH  SET  OF  L  NONCER 

CONSERVATION  EQUATIONS 

IER  EQUATION  NUMBER  TO  REPRESENT  NEWLY  APPEARING  CONDENSED  SPE-C  EQTCOM 

CIES. 

IFC<U>  CONTROL  FLAG  (0  GAS*  -1  NONPRESENT  CONDENSED*  +1  PRESENT  C  EQPCOM 


CONDENSED*  PRIOR  FLAGS  DECREMENTED  BY  3  IF  SPECIES  CONTAINS 
NONPRESENT  ELEMENT  OR  INCREMENTED  BY  3  IF  IT  IS  A  BASE  SPE¬ 
CIES  REPRESENTING  A  nonpresent  element). 

IFLM  INDEX  OF  THE  SET  OF  LINEAR  EQUATIONS  WHICH  HAS  THE  LARGEST  C  ERRCOM 
ERROR  FLEM. 
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IFLUXJ 

IFN 

IFN 

IFNLM 

IFP 

IFP 

IFPP 

IFPP 

IFPPP 

IFPPP 

IFW 

IG 

IG 

IGLM 

IGNLM 

IHW 

II 

IIS 

IJ 

IK 

IL 

ILMM 

IM(K) 


ITEM  WHEN  FLUXJ  IS  TO  BE  UPDATED.  C  WALCOM 

INDEX  ON  LINEAR  VARIABLE  F(1#I>  L  IMONE 

INDEX  ON  LINEAR  VARIABLE  F<1#I)  L  IONLY 

INDEX  OF  THE  LINEARIZED  MOMENTUM  EQUATION  WHICH  HAS  THE  C  ERRCOM 
LARGEST  ERROR  FNLEM. 

INDEX  ON  NON-LINEAR  VARIABLE  F<2»I>  L  IMONE 

INDEX  ON  NON-LINEAR  VARIABLE  F(2#I>  L  IONLY 

INDEX  ON  LINEAR  VARIABLE  F<3#I)  L  IMONE 

INDEX  ON  LINEAR  VARIABLE  F<3»I>  L  IONLY 

INDEX  ON  LINEAR  VARIABLE  F<4#I)  L  IMONE 

INDEX  ON  LINEAR  VARIABLE  F<4»I)  L  IONLY 

ITEM  WHEN  FW  IS  TO  BE  UPDATED.  C  WALCOM 


NOMINALLY  ZERO#  EQUALS  ONE  ON  FIRST  SET  OF  BOUNDARY  LAYER  L  EQUIL 

CHEMISTRY  SOLUTIONS.  FIRST  GUESS  AT  1+  IS  SOLUTION  AT 

I-IG. 

ELIMINATION  INDEX  IN  BASE  SPECIES-ELEMENT  CORRESPONDENCE  L  INPUT 
LOGIC. 

INDEX  OF  THE  SET  OF  LINEAR  EQUATIONS  WHICH  HAS  THE  LARGEST  C  ERRCOM 
ERROR  GLEM. 

INDEX  OF  THE  LINEARIZED  ENERGY  CONSERVATION  EQUATION  WHICH  C  ERRCOM 


HAS  THE  LARGEST  ERROR  GNLEM. 

ITEM  WHEN  HW  IS  TO  BE  UPDATED.  C  WALCOM 

INDEX  ON  ETA#  1 1  =  1  AT  WALL#  IDENTICAL  TO  I+,  C  INTCOM 

LOCAL  INDEX  L  RECASE 

LOCAL  INDEX  L  PROPS 

LOCAL  INDEX  L  PROPS 


INDEX  ON  FIRST  CHEMISTRY  EQUATION  TO  BE  SOLVED  (1  FOR  UN-  C  EQTCOM 
KNOWN  T  AND  2  FOR  KNOWN  T), 

INDEX  OF  THE  LINEAR  EQUATION  WHICH  HAS  THE  LARGEST  ERROR  C  ERRCOM 
ELMM. 

ROW  AND  COLUMN  INDEX  IN  INVERSION  OF  CIJ  TO  UM.  L  INPUT 


IMI 


LOCAL  INDEX 


L  INPUT 


? 


IMJ 
I  ML 
IN 

INLMM 

INP 

IPRE 

INTEQV 

INV 

IQ 

IQQ 

IR(K) 

IRAQ 

IRE 

IRHOVW 

IS 

IS 

ISM 

ISP 

ISP 

ISP 

ISP 

ISP2 

ISP2 

ISPLM(K) 


LOCAL  INDEX 
LOCAL  INDEX 


L 

L 


NUMBER  OF  EQUATIONS  BEING  SOLVED  (HAS  THE  VALUE  OF  THE  LO-  C 
CAL  VARIABLE  ISPQ  IF  TEMPERATURE  IS  UNKNOWN  OR  ISPG-1  IF 
TEMPERATURE  IS  KNOWN). 

INDEX  OF  THE  NONLINEAR  EQUATION  WHICH  HAS  THE  LARGEST  ERRORC 
ENLMM. 

IN+2  L 

ITEM  WHEN  PRE  IS  TO  BE  UPDATED.  C 

VARIABLE  EQUIVALENCED  TO  INTCOM  (EXCEPT  KR(20))  FOR  L 

DUMPING  PURPOSES 

FLAG  ON  RESTART  OF  CHEMISTRY  (PERMITS  ONLY  ONE  RESTART)  L 

FOR  EACH  NON-BASE  GASEOUS  SPECIES  INITIALIZED  TO  ZERO.  SET  L 
TO  ONE  IF  SPECIES  IS  SIGNIFICANT  IN  ANY  MASS  BALANCE. 

DEBUG (-2)  AND  NONCONVERGENT(-l)  FLAG  ON  CALL  TO  AND  RETURN  L 
FROM  RERAY.  RESPECTIVELY. 

CORRESPONDENCE  VECTOR  BETWEEN  BASE  SPECIES  AND  ELEMENTS.  C 

ITEM  WHEN  RADR  IS  TO  BE  UPDATED.  C 

INDEX  ON  NEWLY  APPEARING  CONDENSED  SPECIES.  C 

ITEM  WHEN  RHOVW  IS  TO  BE  UPDATED.  C 

NUMBER  OF  ELEMENTS  INCLUDING  ELECTRON.  IDENTICAL  TO  IZ*.  C 

INDEX  ON  S.  IS=1  AT  STAGNATION  POINT  OR  LEADING  EDGE.  IDEN-C 
TICAL  TO  ISS*. 

NSP-1  L 

NUMBER  OF  ELEMENTS  INCLUDING  ELECTRON  PLUS  ONE.  C 

SAME  AS  ISP  IN  INPUT.  L 

(IS*)  +  1  WHERE  IS*  IS  THE  NUMBER  OF  ELEMENTS  INCLUDING  L 
ELECTRON. 

NSP  ♦  1  L 

NUMBER  OF  ELEMENTS  INCLUDING  ELECTRON  PLUS  TWO.  C 

NSP  +  2  L 

INDEX  OF  THE  SET  OF  LINEAR  EQUATIONS  WHICH  HAS  THE  LARGEST  C 
ERROR  SPLEM(K). 


INPUT 

INPUT 

EQTCOM 

ERRCOM 

CRECT 

PRMCOM 

DUMCOM 

EQUIL 

MATER 

EQUIL 

EQPCOM 

PRMCOM 

EQTCOM 

WALCOM 

EQPCOM 

INTCOM 

PROPS 

BUMCOM 

EQUIL 

INPUT 

PROPS 

KINCOM 

PROPS 

ERRCOM 
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ISPN 

ISPN 

ISPNLM(K) 

ISPP 

ISPP 

ISPPP 

ISPPP 

ISPQ 

ISPQ 

ISPW 

ISS 

1ST 

ISU 

ISV 

ISV2 

ISVP 

IT 

IT 

ITEM 

ITFF 

ITS 

ITS 

ITT 

ITW 

IX 


INDEX  ON  NON-LINEAR  VARIABLE  <G<1.I>  OR  SP<1»I»K))  L 

INDEX  ON  NON-LINEAR  VARIABLE  <G(1.I>  OR  SP<1»I.K>)  L 

INDEX  OF  THE  LINEARIZED  ELEMENTAL  CONSERVATION  EQUATION  C 

WHICH  HAS  THE  LARGEST  ERROR  SPNLEM(K). 

INDEX  ON  LINEAR  VARIABLE  (G<2»I>  OR  SP(2*I.K>>  L 

INDEX  ON  LINEAR  VARIABLE  (G(2*I>  OR  SP(2.I»K>>  L 

INDEX  ON  LINEAR  VARIABLE  <G<3»I)  OR  SP  (3.I»K)>  L 

INDEX  ON  LINEAR  VARIABLE  < G < 3 » I )  OR  SP  (3.I»K>)  L 

ISP2  +  NUMBER  OF  PRESENT  CONDENSED  SPECIES.  C 

NUMBER  OF  EQUATIONS  SOLVED  IN  CHEMISTRY  SOLUTIONS.  IS+2+  L 
NUMBER  OF  PRESENT  CONDENSED  SPECIES. 

ITEM  WHEN  SPW  IS  TO  BE  UPDATED.  C 

INDEX  ON  S.  ISS=1  AT  STAGNATION  POINT  OR  LEADING  EDGE.  C 

IDENTICAL  TO  IS+. 

LOCAL  INDEX  L 

INDEX  OF  SPECIES  REPRESENTATIVE  OF  SURFACE  C 

ISV  IS  SET  EQUAL  TO  IS*  NEAR  BEGINNING  OF  SUBROUTINE  PROPS  L 
IS*  THEN  BEING  SET  TO  NSP.  IS*  RESTORED  TO  ISV  AT  THE  END 
OF  PROPS. 

LOCALLY  OEFINED  VARIABLE  L 

ISV+1  L 

NOT  USED  IN  CURRENT  VERSION.  IDENTICAL  TO  IIT+,  C 

CURRENTLY  SET  TO  UNITY.  IDENTICAL  TO  ITT*.  C 

TIME  (OR  SUBCASE).  C 

NEGATIVE  COUNT  ON  SUCCEEDING  CHEMISTRY  SOLUTIONS  WHICH  WILLL 
ACCEPT  RESIDENT  SOLUTION  AS  FIRST  GUESS. 

COUNTER  FOR  CHEMISTRY  ITERATIONS'  IDENTICAL  TO  IITS+.  C 

COUNTER  FOR  BOUNDARY  LAYER  ITERATIONS.  IDENTICAL  TO  MITS*.  C 
CURRENTLY  SET  TO  UNITY.  IDENTICAL  TO  IT+.  C 

ITEM  WHEN  TW  IS  TO  BE  UPDATED.  C 


VARIABLE  IN  RERAY  CALL  SEQUENCE  HAVING  TO  DO  WITH  PRINTING  C 
OF  DE8UG  OUTPUT.  -2  GIVES  DEBUG.  COMES  BACK  3  IF  INVERSION 
SUCCEEDED'  1  IF  SINGULAR. 


IMONE 

IONLY 

ERRCOM 

IMONE 

IONLY 

IMONE 

IONLY 

KINCOM 

EQUIL 

WALCOM 

INTCOM 

FIRSTG 

CRBCON 

PROPS 

PROPS 

PROPS 

'TCOM 

)M 

x  i  COM 

EQUIL 

EQTCOM 

INTCOM 

INTCOM 

WALCOM 

BUMCOM 


IX  DIAGNOSTIC  FLAG  PREVIOUSLY  USED  TO  INDICATE  TYPE  OF  BAD  IN-L  INPUT 

PUT  DETECTED. 


IX 

DEBUG  FLAG. 

L 

RERAY 

12 

NUMBER  OF  ELEMENTS  INCLUDING  ELECTRON. 

IDENTICAL  TO  IS*. 

C 

EOPCOM 

J 

LOCAL  INDEX 

L 

ABMAX 

J 

LOCAL  INDEX 

L 

CRECT 

J 

LOCAL  INDEX 

L 

EQUIL 

J 

LOCAL  INDEX 

L 

FIRSTG 

J 

LOCAL  INDEX 

L 

HISTXI 

J 

LOCAL  INDEX 

L 

ICOEFF 

J 

LOCAL  INDEX 

L 

INPUT 

J 

LOCAL  INDEX 

L 

KINET 

J 

LOCAL  INDEX 

L 

LIAD 

J 

LOCAL  INDEX 

L 

LINMAT 

J 

LOCAL  INDEX 

L 

MATER 

J 

LOCAL  INDEX 

L 

MATS1 

J 

LOCAL  INDEX 

L 

NONCER 

J 

LOCAL  INDEX 

L 

OUTPUT 

U 

LOCAL  INDEX 

L 

PROPS 

J 

LOCAL  INDEX 

L 

RECASE 

J 

LOCAL  INDEX 

L 

REFCON 

J 

LOCAL  INDEX 

L 

RERAY 

J 

LOCAL  INDEX 

L 

rnlcer 

J 

LO'.V.l 

L 

SETUP 

J 

lOC*L  INDEX 

L 

THERM 

J 

LOCAL  INDEX 

L 

TRM8L 

JAST 

READ  IN  AS  COMMA  ( . )  OP  PERIOD  <.)  FOR 
THERE  IS  TO  BE  ANOTHER  CASE  (SEE  INPUT 

TEST  OF  WHETHER 
INSTRUCTIONS) . 

L 

BLIMP 
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JAT(N) 

ATOMIC  NUMBER  OF  AN  ELEMENT  WHICH  CONTAINS  ALPT(N)  ATOMS 

A  SPECIES. 

INL 

INPUT 

JB 

LOCAL  INDEX 

L 

MATS1 

JC 

INDEX  ON  SURFACE  CONDENSED  SPECIES. 

C 

EQTCOM 

JJ 

LOCAL  INDEX 

L 

noncer 

JJ 

LOCAL  INDEX 

L 

REFCON 

JJ 

LOCAL  INDEX 

L 

RERAY 

JJ 

LOCAL  INDEX 

L 

RNLCER 

JJ 

LOCAL  INDEX 

L 

TRMBL 

JL 

LOCAL  INDEX 

L 

TRMBL 

JM 

J-l*  WHERE  *J»  IS  BASE  SPECIES  COUNT. 

L 

INPUT 

JRHOVW 

SET  EQUAL  TO  UNITY  IF  RHOVW  OR  FLUXJ  ARE  READ  IN  FOR 
CURRENT  TIME.  OTHERWISE  ZERO. 

L 

REFCON 

JT 

LOCAL  INDEX 

L 

EQUIL 

KAPPA 

INDEX  OF  THE  NODAL  POINT  AT  WHICH  THE  VELOCITY  RATIO  IS 
FIXED. 

C 

INTCOM 

XAT'Ki 

ATOMIC  NUMBER. 

C 

EQPCOM 

KIN 

NUMBER  OF  TAPE  FROM  WHICH  DATA  IS  READ. 

C 

INTCOM 

KINEQV 

VARIABLE  EQUIVALENCED  TO  KINCOM  FOR  DUMPING  PURPOSES 

L 

DUMCOM 

KIP 

CONTROL  VARIABLE  0  UNLESS  PERFORMING  ASSIGNED  TEMPERATURE 
CALCULATION  DURING  KR(R)=6  ENERGY  BALANCE  PROBLEMS  (SEE 
definition  OF  TFZ), 

C 

BUMCOM 

KK 

LOCAL  INDEX 

L 

EQUIL 

KK 

LOCAL  INDEX 

L 

ICOEFF 

KK 

LOCAL  INDEX 

L 

IMONE 

KK 

LOCAL  INDEX 

L 

INPUT 

KK 

LOCAL  INDEX 

L 

IONLY 

KK 

LOCAL  INDEX 

L 

LI  AD 

KK 

LOCAL  INDEX 

L 

NONCER 

KK 


LOCAL  INDEX 


L  RNLCER 


KKR* N) 

KOUT 

KPHA(N) 

KQCN) 

KR(N) 

KR(N) 

KR2 

KR9(L) 

KR17 

KS 

L(N) 

LAM(K»J) 

LAR(N) 

LAST 

LEFOO 

LEFS(K) 

LEFT(K*N) 

LEFUP 


ARRAY  OF  INPUT  INTEGERS  WHICH  CONTROL  THE  VARIOUS  OPTIONS  C 
OF  THE  PROGRAM#  IDENTICAL  TO  KR+. 

NUMBER  OF  TAPE  ONTO  WHICH  DATA  IS  WRITTEN.  C 

PHASE  INDEX  FOR  A  SPECIES#  1=SAS»  2=S0LID#  3=LIGUID.  L 

IDENTICAL  TO  KR(N)*  BY  TRANSMITTAL  THROUGH  CALL  LISTS  OF  C 
PROGRAMS  EGUIL  AND  INPUT.  ALSO  IDENTICAL  TO  KO<N>*. 

CONTROL  CARD  FOR  CHEMISTRY  CALCULATION  (KR(l)IS  0  FOR  ASSI-C 
GNED  TEMPERATURE#  1  FOR  SURFACE  EQUILIBRIUM#  2  FOR  ASSIGNED 
ENTHALPY#  Kfi(2)  AND  KR(3)  ARE  1  IF  ELEMENT  AND  SPECIES  DATA 
ARE  TO  BE  READ  IN#  OTHERWISE  0#  KR(4>  IS  NOT  USED#  KR(5)  IS 
0  IF  IT  IS  NOT  A  BOUNDARY  LAYER  EDGE  SOLUTION#  1  FOR  EXPAN¬ 
SION#  2  FOR  STAGNATION#  KR(6>  IS  0  FOR  BOUNDARY  LAYER  CALCU 
LATION*  2  FOR  SURFACE  MASS  BALANCE#  KRC7)  CONTROLS  DEBUG# 
IDENTICAL  TO  KZ(N)+. 

ARRAY  OF  INPUT  INTEGERS  WHICH  CONTROL  THE  VARIOUS  OPTIONS  C 
OF  THE  PROGRAM#  IDENTICAL  TO  KKR*. 

KKR<2)  (FIRST  GUESS  FLAG)  PRESERVES  VALUE  SINCE  XKR(2)  IS  L 


RESET  TO  ZERO  IN  SETUP. 

VALUES  OF  KR(9)  WHEN  WALL  BOUNDARY  CONDITIONS  ARE  TO  BE  C 
CHANGED  AT  DOWNSTREAM  STATIONS#  CURRENT  KR(9>  ASSIGNMENT 
MADE  NEAR  BEGINNING  OF  SUBROUTINE  NONCER. 

SAVED  VALUE  FOR  KR<l7i.  C 

SURFACE  MATERIAL  INDEX  (FOR  EACH  STATION)  C 

INDEX  ON  COLUMNS  DURING  INVERSION.  L 


UNITY  IF  J  TH  SPECIES  CONTAINS  K  TH  ELEMENT#  OTHERWISE  ZEROC 

INDEX  USED  FOR  REARRANGING  ELEMENTS  IN  MATRIX  OF  NONLINEAR  C 
EQUATIONS  (AM). 

ASSIGNED  THE  VAL'JE  PERIOD  (.)  THROUGH  A  DATA  STATEMENT  FOR  L 
USE  IN  TEST  OF  WHETHER  THERE  IS  TO  BE  ANOTHER  CASE. 

FLAG  REGARDING  KISSING  ELEMENTS  FOR  CURRENT  SOLUTION#  3  AL~C 
WAYS  PRESENT  FROM  EDGE#  2  ALWAYS  PRESENT  DUE  TO  UPSTREAM 
INJECTION#  1  PRESENT  DUE  TO  LOCAL  INJECTION#  0  NOT  PRESENT. 

FLAG  REGARDING  MISSING  ELEMENTS  FROM  PRIOR  SOLUTION#  SEE  C 
LEF  FOR  NUMERICAL  VALUES. 

TEMPORARY  STORAGE  FOR  LEF (K)  DURING  TAPE  FLIP-FLOP  FOR  C 
N  =  i  AND  2. 

UPDATE  LEF  IF  EQUAL  TO  ZERO  !=MITS+I 1-2  FOR  BOUNDARY  LAYER  L 
SOLUTION#  0THERWISE=1)  • 


INTCOM 

INTCOM 

INPUT 

INTCOM 

EGPCOM 


INTCOM 

EGUIL 

INTCOM 

INTCOM 

CRBCOM 

RERAY 

EGPCOM 

ETACOM 

BLIMP 

BLQCOM 

BLQCOM 

EGUIL 
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LEFW(K) 

FLAG  REGARDING  MISSING  ELEMENTS  FOR  CURRENT  WALL  SOLUTION* 
SEE  LEF  FOR  NUMERICAL  VALUES. 

C 

BLOCOM 

LI 

LOCAL  INDEX 

L 

LINMAT 

LIM(K*KK) 

LAM(K*KK>  FOR  KKTH  BASE  SPECIES. 

L 

INPUT 

LL(MK) 

INDEX  ON  MASS  BALANCE  WHICH  IS  CONTROLLED  BY  N  TH  KINETIC 
REACTION. 

C 

KINCOM 

LL(N) 

ROW  INDEX  OF  PIVOT  FOR  NTH  COLUMN. 

L 

RERAY 

LLL<N) 

COLUMN  INDEX  OF  PIVOT  FOR  NTH  ROW. 

L 

RERAY 

LNZ 

LOCAL  INDEX 

L 

RECASE 

LPI 

LOCAL  INDEX 

L 

IMONE 

LPI 

LOCAL  INDEX 

L 

I  ONLY 

LPI 

LOCAL  INDEX 

L 

NONCER 

LPI 

LOCAL  INDEX 

L 

TRMBL 

LR 

LOCAL  INDEX 

L 

TRMBL 

LRK 

LOCAL  INDEX 

L 

TRMBL 

LS 

INDEX  USED  TO  REARRANGE  COLUMNS  IN  RERAY  (SEE  LAR) 

L 

RERAY 

LSKIP 

LOCAL  INDEX 

L 

NONCER 

L2 

INDEX  ON  PYROLYSIS  GAS  COMPONENT 

C 

EQTCOM 

L3 

INDEX  ON  CHAR  COMPONENT 

C 

EQTCOM 

M 

LOCAL  INDEX 

L 

CRECT 

M 

LOCAL  INDEX 

L 

FIRSTG 

M 

LOCAL  INDEX 

L 

histxi 

M 

LOCAL  INDEX 

L 

INPUT 

M 

LOCAL  INDEX 

L 

KINET 

M 

LOCAL  INDEX 

L 

LINGER 

M 

LOCAL  INDEX 

L 

MATS1 

M 

LOCAL  INDEX 

L 

NONCER 

M 

LOCAL  INDEX 

L 

REFCON 

M 

LOCAL  INDEX 

L 

RERAY 
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M 

LOCAL  INDEX 

L 

RNLCER 

Ml 

COUNT  ON  PRINCIPAL  SPECIES  AFTER  ORDERING  IB. 

L 

CRECT 

MA(MK) 

ORDERING  VECTOR  BASED  ON  HAVING  RAT  IN  DESCENDING  SEQUENCE 

.c 

KINCOM 

MATH 

3  *  NETA  -  2*  NUMBER  OF  TAYLOR  SERIES  EXPANSIONS  AND  LINEARC 
BOUNDARY  CONDITIONS  INVOLVING  F(1#I)  AND  ITS  DERIVATIVES. 

INTCOM 

MATIJ 

NETA  +  3*  NUMBER  OF  LINEARIZED  MOMENTUM  EQUATIONS  AND  BOUNDC 
ARY  CONDITIONS. 

INTCOM 

MAT2I 

2  *  NETA#  NUMBER  OF  TAYLOR  SERIES  EXPANSIONS  AND  LINEAR 
BOUNDARY  CONDITIONS  INVOLVING  G(1#I>  AND  ITS  DERIVATIVES 

OR  THE  K  TH  SPECIES#  SP(1#I»K>#  AND  ITS  DERIVATIVES. 

C 

INTCOM 

MAT2J 

NETA#  NUMBER  OF  LINEARIZED  ENERGY  OR  K  TH  ELEMENTAL  CONSER 
VATION  EQUATIONS  AND  BOUNDARY  CONDITIONS. 

-c 

INTCOM 

MELT 

INDEX  ON  PHASE  CHANGING  SPECIES. 

c 

EQTCOM 

MI 

MA(K) 

L 

KINET 

MITS 

COUNTER  FOR  BOUNDARY  LAYER  ITERATIONS#  IDENTICAL  TO  ITS*. 

c 

INTCOM 

MM 

LOCAL  INDEX 

L 

KINET 

MM 

LOCAL  INDEX 

L 

NONCER 

MM 

LOCAL  INDEX 

L 

REFCON 

MOA(J) 

ALPHANUMERIC  VARIABLE#  FIRST  OF  TWO  PORTIONS  OF  SPECIES 
NAME#  IDENTICAL  TO  FAMOA*. 

C 

BLQCOM 

MOB(J) 

ALPHANUMERIC  VARIABLE#  SECOND  OF  TWO  PORTIONS  OF  SPECIES 
NAME#  IDENTICAL  TO  FAMOB*. 

C 

BLQCOM 

MODE 

STORED  VALUE  FOR  KR<1>*. 

c 

EQTCOM 

MOE 

FLAG  SET  IN  EQUIL  AND  USED  IN  CRECT.  ZERO  RESULTS  IN  EM¬ 
PHASIZING  EQUILIBRIUM  EQUATIONS  DURING  CHEMISTRY  CONVER¬ 
GENCE#  ONE  RESULTS  IN  EMPHASIZING  MASS  BALANCES. 

L 

EQUIL 

MR 

INDICES  USED  IN  REARRANGING  REACTIVE  MASS  BALANCES  ACCORD¬ 
ING  TO  CONTROLLING  REACTIONS. 

L 

KINET 

MPI 

LOCAL  INDEX 

L 

IMONE 

MPI 

LOCAL  INDEX 

L 

IONLY 

MPJ 

LOCAL  INDEX 

L 

IMONE 

MPJ 

LOCAL  INDEX 

L 

IONLY 

MPJ 

LOCAL  INDEX 

L 

TRMBL 
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MSD(N) 

MT 

MWE 

N1 

NAM 

NBT 

NBT2 

NC 

NCV 

NO 

NO  I  SC 
NELM 
NENLM 
NETA 

NFF 

NFIA(J) 

NFXB(J) 

NFM 

NITEM 

NLEQ 

NM 

NN 


HAS  THE  VALUE  OF  IS  AT  THE  BEGINNING  OF  N  TH  REGION  BOUNDEDC 
BY  DISCONTINUITIES  < MSD ( 1)=1  BY  DEFINITION)  WHERE  IS  IS 
INDEX  ON  S. 

NUMBER  OF  KINETICALLY  CONTROLLED  REACTIONS.  C 

CONTROL  VARIABLE  (-1  FOR  NEW  CASE*  SET  TO  ZERO  AT  THE  END  C 
OF  SUBROUTINE  SETUP). 


NUMBER  OF  ROWS  +1  L 

NUMBER  OF  NONLINEAR  EQUATIONS  NOT  INCLUDING  NONLINEAR  WALL  C 
BOUNDARY  CONDITIONS*  NNLEQ-NRNL. 

NUMBER  OF  ONE  OF  TWO  TAPES  USED  IN  FLIP-FLOP.  C 

NUMBER  OF  ONE  OF  TWO  TAPES  USED  IN  FLIP-FLOP.  C 

NUMBER  OF  COMPONENTS  OF  THE  NONREACTING  FLUID  MIXTURE  IN  C 

KR(7)=1  OPTION. 

NONCONVERGENCE  COUNT*  INITIALLY  ZERO*  INCREMENTED  BY  ONE  L 
FOR  EACH  NONCONVERGENT  CHEMISTRY  SOLUTION. 


DIMENSION  TRANSMITTED  THROUGH  CALL  L 
NUMBER  OF  DISCONTINUITIES.  C 
NUMBER  OF  MAXIMUM  LINEAR  ERRORS  ELM.  C 
NUMBER  OF  MAXIMUM  NONLINEAR  ERRORS  ENLM.  C 


NUMBER  OF  NODAL  POINTS  ACROSS  BOUNDARY  LAYER  INCLUDING  WALLC 
AND  EDGE. 

NUMBER  OF  SPECIES  FOR  WHICH  DIFFUSION  FACTORS*  FF(J)*  ARE  L 
TO  BE  READ  IN. 

FIRST  OF  TWO  PORTIONS  OF  NAME  OF  MOLECULE  FOR  WHICH  DIFFU-  L 
SION  FACTOR*  FF(J)*  IS  BEING  READ  IN. 

SECOND  OF  TWO  PORTIONS  OF  NAME  OF  MOLECULE  FOR  WHICH  DIFFU-L 


SION  FACTOR.  FF(J).  IS  BEING  READ  IN. 

NUMBER  OF  SIGNIFICANT  SPECIES  PLUS  NUMBER  OF  NONPRESENT  L 
ELEMENTS. 

NUMBER  OF  TIMES  (OR  SUBCASES).  C 

NUMBER  OF  LINEAR  EQUATIONS*  MAT1I+NSP*MAT2I *  C 

NUMBER  OF  ROWS  LESS  ONE  L 

NUMBER  BY  WHICH  COLUMNS  EXCEED  ROWS  IN  PRINCIPAL  ARRAY  L 


PRMCOM 

KINCOM 

INTCOM 

RERAY 

INTCOM 

INTCOM 

INTCOM 

STTCOM 

EQUIL 

RERAY 

PRMCOM 

ERRCOM 

ERRCOM 

INTCOM 

INPUT 

INPUT 

INPUT 

MATER 

INTCOM 

INTCOM 

RERAY 

RERAY 
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2 


t 


NNLEQ 

NNN 

NON 


NP 

NPR 

NRNL 

NS 

NSO(N) 

NSP 

NSPEC 

NSPM1 

NTIME 

NUL 

N2I 

N7 

OMEGA 

OUTEQV 

P 

PA(K»KK) 
PE(L*1) 
PHIK ( I *K ) 

PHIKP(K) 

PI 

PID 


MAT1J  +  NSP  *  MAT2J,  TOTAL  NUMBER  OF  NONLINEAR  EQUATIONS.  C 

NUMBER  OF  COLUMN  VECTORS  IN  SECONDARY  ARRAY  L 

CONTROL  VARIABLE  USED  AFTER  RETURNING  FROM  SUBROUTINE  OUT-  C 
PUT  (-1  WHEN  RERUNNING  FROM  OUTPUT  DURING  ITERATIONS.  0 
WHEN  CONVERGED#  +1  WHEN  NONCONVERGED  AFTER  ALLOWED  NUMBER 


OF  ITERATIONS). 

NUMBER  OF  COLUMNS  IN  PRIMARY  ARRAY.  L 
NUMBER  OF  DERIVATIVE  PROPERTIES  TO  BE  EVALUATED  L 
NSP  +  1»  NUMBER  OF  REDUCED  NONLINEAR  EQUATIONS.  C 
NUMBER  OF  STREAMWISE  STATIONS.  C 


NUMBER  OF  STATIONS  CONTAINED  IN  N  TH  REGION  BOUNDED  BY  DIS-C 
CONTINUITIES  <S(1)  CONSIDERED  A  DISCONTINUITY  IN  THIS  DEFI¬ 
NITION). 

NUMBER  OF  ELEMENTS  IN  THE  SYSTEM.  NOT  INCLUDING  ELECTRONS.  C 


NUMBER  OF  SPECIES.  IDENTICAL  TO  N*.  C 

NSP-1  C 

CURRENTLY  SET  TO  UNITY.  C 

ZERO.  L 

LOCAL  INDEX  L 

ITERATION  AT  WHICH  DIAGNOSTIC  OUTPUT  WILL  COMMENCE  L 

PARAMETER  OF  THIS  NAME  USED  IN  TRANSPORT  PROPERTY  CALCU-  L 
LATIONS  INTRODUCED  IN  EQ<4)  OF  NASA  CR-1063.  NUMERICALLY 
EQUAL  TO  1.07/<T/106.7)  *♦  0.159 

VARIABLE  EQUIVALENCED  TO  OUTCOM  FOR  DUMPING  PURPOSES  L 

PRESSURE.  C 

PARTIAL  DERIVATIVE  OF  PROPERTY  K  WITH  RESPECT  TO  LOG  T.  L 
LOG  AA.  LOG( Y (KK-2) ) • 

STATIC  PRESSURE.  C 

SOURCE  TERM  FOR  KTH  ELEMENT  (EQUAL  TO  ZERO  IN  MIXED  EQUI-  C 
LIBRIUM-FROZEN  BOUNDARY  LAYER). 

DERIVATIVE  OF  PHIK  WITH  RESPECT  TO  ETA.  C 

P(I)  IN  MIXING  LENGTH  FORMULATION.  SEE  REF,  1.  C 

LOCALLY  DEFINED  VARIABLE  L 


INTCOM 

RERAY 

INTCOM 


RERAY 

PROPS 

INTCOM 

INTCOM 

PRMCOM 

INTCOM 

BLQCOM 

INTCOM 

INTCOM 

HISTXI 

NONCER 

EQUIL 

PROPS 

DUMCOM 

EQPCOM 

PROPS 

EDGCOM 

PRPCOM 

PRPCOM 

EPSCOM 

TRMBL 
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PIEASE 

PIM 

PIN 

PIN 

PINL 

PKP(MK) 

PKR(MK) 

PLM 

PMR(MK) 

PMU(K*MK) 

PMU1 

PMU2 

PMU6 

PNUS(K) 

PR  { I ) 

PRA 

PRB 

PRC 

PRD 

PRDUM 

PRE(L) 

PREQ 

PRF 


PRODUCT  OF  DAMPING  FACTORS.  C  BLQCOM 

P  AT  NODE  1-1  L  TRMBL 

p  *  (io**<-5)>  USED  TO  INITIALIZE  PARTIAL  PRESSURES.  L  EQUIL 

SAME  AS  IN  EQUIL.  L  MATER 

LOG  (PIN).  L  EQUIL 

FORWARD  RATE  OF  REACTION.  C  KlNCOM 

REVERSE  RATE  OF  REACTION.  C  KlNCOM 

SUMMATION  VN(J)*WTM(J)  FOR  ALL  CONDENSED  SPECIES.  L  EQUIL 

NET  FORWARD  RATE  OF  REACTION.  C  KlNCOM 


STOICHIOMETRIC  PRODUCT  COEFFICIENT  ON  K  TH  BASE  SPECIES.  C  KlNCOM 

VN(J)  *  FF(J)  SUMMED  OVER  ALL  GASEOUS  SPECIES  (=VMU1  *  P) .  L  PROPS 

VN(J)  *  WTM(J)  /  FF( J)  SUMMED  OVER  ALL  SPECIES  N*  (=VMU2  *  L  PROPS 
P) . 

VN(J)/(FF(J)  *  <WD4-VN<J>  *  FF(J)  *  WD8) )  SUMMED  OVER  ALL 
SPECIES  N*. 

SUMMATION  VNU(J»K)  *  VN(U)  OVER  ALL  GA5ES  J. 

PRANDTL  NUMBER. 

CONSTANT  IN  THE  PRANDTL  NUMBER  RELATION  DEFINING  PR  (SEE 
PRDUM), 

CONSTANT  IN  THE  PRANDTL  NUMBER  RELATION  DEFINING  PR  (SEE 
PRDUM) . 

CONSTANT  IN  THE  PRANDTL  NUMBER  RELATION  DEFINING  PR  (SEE 
PRDUM), 

CONSTANT  IN  THE  PRANDTL  NUMBER  RELATION  DEFINING  PR  (SEE 
PRDUM), 

PRANDTL  NUMBER  IF  CONSIDERED  CONSTANT,  OTHERWISE,  IT  IS  A 
CONSTANT  IN  THE  RELATION'  PR=PRDUM+PRA  *  T  *♦  PRB+PRC*T 
**  PRD»  USED  IN  KR(7)=  1  OPTION  ONLY. 

RATIO  OF  LOCAL  STATIC  PRESSURE  TO  STAGNATION  PRESSURE  PTET.C  PRMCOM 

VARIABLE  EQUIVALENCED  TO  PORTION  OF  PRPCOM  FOR  STORAGE  L  NONCER 
TRANSFER 

LOCALLY  DEFINED  VARIABLE  L  TRMBL 


L  PROPS 

L  MATER 
C  PRPCOM 
C  STTCOM 

C  STTCOM 

C  STTCOM 

C  STTCOM 

C  STTCOM 
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PRMEGV 

PRMUOOMK) 

PRP 

PRPEQV 

PRR 

PRT 

PTE<L»1> 
PTET (M) 
PV(NfNN) 

QA 

OB 

QC 

01 


QR(I) 

OS 

QW 

R 

RA  (N) 

RADFL(M) 

RADNO 

RADR(L) 

RADS(L) 


VARIABLE  EQUXVALEnCEO  TO  PRMCOM  FOR  DUMPING  PURPOSES  L  DUMCOM 

PMU-RMU  C  KINCOM 

LOCALLY  DEFINED  VARIABLE  RELATIVE  TO  ARRAY  OF  DERIVATIVE  L  PROPS 

PROPERTIES  BEING  CALCULATED 

VARIABLE  EOUIVALENCED  TO  PRPCOM  FOR  DUMPING  PURPOSES  L  DUMCOM 

ARGUMENT  REPRESENTING  PRESSURE  L  EQUIL 

TURBULENT  PRANDTL  NUMBER  C  EPSCOM 

LOCAL  TOTAL  PRESSURE.  C  EDGCOM 

STAGNATION  PRESSURE.  C  PRMCOM 

DERIVATIVES  OF  VMU3  (NN=1)#  VMU4(NN=2> »HTIL(NN=3>  AND  ZK(K>L  PROPS 

(NN=3+K)  WITH  RESPECT  TO  ENTHALPY  (N=l> .PRESSURE  (N=2)  AND 
KTH  ELEMENTAL  MASS  FRACTION  (N=2+K>. 

LOCALLY  DEFINED  VARIABLE  L  SLOP© 

LOCALLY  DEFINED  VARIABLE  L  SLOPQ 

LOCALLY  DEFINED  VARIABLE  L  SLOPQ 


NUMBER  INTRODUCED  INTO  CALCULATION  OF  BETAM  (WHICH  DIFFERS  L  REFCON 
FOR  VARIOUS  BODY  SHAPES)  DUE  TO  CHANGE  IN  MANNER  OF  INTE¬ 
GRATION  IN  THE  VICINITY  OF  THE  STAGNATION  POINT  OR  LEADING 
EDGE. 

NET  RADIATION  FLUX  TOWARD  THE  SURFACE  (SET  EQUAL  TO  ZERO  INC  PRPCOM 
BLIMP#  COMPUTED  BY  SUBROUTINE  RAD  IN  RABLE>. 

LOCALLY  DEFINED  VARIABLE  L  TRMBL 

DIFFUSIVE  HEAT  FLUX  AT  THE  WALL#  C32/C3  EVALUATED  AT  WALL.  C  FLXCOM 

LOCALLY  DEFINED  VARIABLE  L  ERP 

HEAT  OF  FORMATION  OF  MOLECULE  AT  298  DEG  K  FROM  JANAF  BASE  L  INPUT 
STATE#  CAL/MOLE#  N=1  OR  2  FOR  LOW  AND  HIGH  TEMPERATURE  RAN¬ 
GES#  RESPECTIVELY, 

INCIDENT  RADIATION  FLU  •  ABSORBED  BY  THE  SURFACE  AT  STATION  C  PRMCOM 
SU>. 

ACTUAL  NOSE  RADIUS  OF  A  SPHERICALLY  TIPPED  BODY.  Z  PRMvCCM 

RATIO  OF  INCIDENT  RADIATION  FLUX  ABSORBED  BY  THE  SURFACE  TOC  PRMCOM 
THE  VALUE  AT  STATION  S<1)»  RAOFL. 

INC IOENT  RADIATION  FLUX  ABSORBED  BY  THE  SURFACE.  C  PRMCOM 


RAT(MK) 


LARGEST  OF  PKP*  PKR *  PMR .  MEASURE  OF  REACTION  IMPORTANCE.  C  KINCOM 


RC(J»N) 

RD(J*N) 

RE( J*N) 

RED 

REF2 

REF3 

REF4 

REG2 

REG3 

RERAD 

RES 

RETA 

RETHMO 

RETR 

RF<J*N) 

RHO( I) 

RHOE(L) 

RHOP(I) 

RHOVS 

RHOVW(L*l) 

RHR 

RI 


CURVE  FIT  CONSTANT  FOR  THERMODYNAMIC  DATA  (THE  QUANTITY  F3  C 
DISCUSSED  IN  GROUP  12  OF  INPUT  INSTRUCTIONS) ►  N=1  OR  2  FOR 
LOW  AND  HIGH  TEMPERATURE  RANGES* RESPECTIVELY • 

CURVE  FIT  CONSTANT  FOR  THERMODYNAMIC  DATA  (THE  QUANTITY  F4  C 
DISCUSSED  IN  GROUP  12  OF  INPUT  INSTRUCTIONS)*  N=1  OR  2  FOR 
LOW  AND  HIGH  TEMPERATURE  RANGES* RESPECTIVELY. 

CURVE  FIT  CONSTANT  FOR  THERMODYNAMIC  DATA  (THE  QUANTITY  F5  C 
DISCUSSED  IN  GROUP  12  OF  INPUT  INSTRUCTIONS)*  N=1  OR  2  FOR 
LOW  AND  HIGH  TEMPERATURE  RANGES  *  RESPECTIVELY. 

REYNOLDS  NUMBER  ON  DEL  WHERE  DEL  IS  THE  Y  DIMENSION  NORMAL-C 
JZING  PARAMETER.  ALSO*  RED=VMUE (D /ALPHASTAR  WHERE  ALPHA- 
STAR  IS  THE  FLUX  NORMALIZING  PARAMETER  DEFINED  BY  EQ.  44  OF 


NASA  CR  1062. 

LOCALLY  DEFINED  VARIABLE  L 
LOCALLY  DEFINED  VARIABLE  L 
LOCALLY  DEFINED  VARIABLE  L 
LOCALLY  DEFINED  VARIABLE  L 
LOCALLY  DEFINED  VARIABLE  L 
RADIATION  FLUX  FROM  WALL  L 
REYNOLDS  NUMBER  BASED  0  DISTANCE  S.  C 
LOCALLY  DEFTNED  VARIABLE  L 
REYNOLDS  NUMBER  ON  MOMENTUM  THICKNESS  L 
TRANSITION  REYNOLDS  NUMBER  BASED  ON  MOMENTUM  THICKNESS.  C 


CURVE  FIT  CONSTANT  FOR  THERMODYNAMIC  DATA  (THE  QUANTITY  F6  C 
DISCUSSED  IN  GROUP  12  OF  INPUT  INSTRUCTIONS)*  N=1  OR  2  FOR 


LOW  AND  HIGH  TEMPERATURE  RANGES  *  RESPECTIVELY. 

DENSITY  OF  GAS  MIXTURE*  C 
DENSITY  OF  BOUNDARY-LAYER  EDGE  GAS.  C 
DERIVATIVE  OF  RHO  WITH  RESPECT  TO  ETA,  C 
-RHOVW(L*D /ALPHASTAR.  SEE  NASA  CR  1062  FOR  ALPHASTAR.  C 
CONVERGED  VALUE  FOR  SURFACE  ABLATION  RATE.  C 
DENSITY.  L 
LOCALLY  DEFINED  VARIABLE  L 


EQPCOM 

EQPCOM 

EQPCOM 

EPSCOM 


OUTPUT 

OUTPUT 

OUTPUT 

OUTPUT 

OUTPUT 

OUTPUT 

OUTCOM 

OUTPUT 

OUTPUT 

EPSCOM 

EQPCOM 

PRPCOM 

EDGCOM 

PRPCOM 

EPSCOM 

WALCOM 

EQUIL 

TRMBL 


RMMG 

RATIO  OF  MOLECULAR  WEIGHT  OBTAINED  BY  SUMMING  PARTIAL  PRES-C 
SURES  OVER  ALL  SPECIES  TO  THE  MOLECULAR  WEIGHT  OBTAINED  BY 
SUMMING  OVER  GAS  PHASE  SPECIES  ONLY. 

EQTCOM 

RMMGS 

RMMG*RMMG 

L 

MATER 

RMU(KrMK) 

STOICHIOMETRIC  REACTANT  COEFFICIENT  ON  K  TH  BASE  SPECIES. 

C 

KINCOM 

RNOSE 

EFFECTIVE  NOSE  RADIUS. 

C 

PRMCOM 

ROKAP(L) 

1  FOR  PLANAR  BODIES  AND  LOCAL  BODY  RADIUS  FOR  AXISYMMETRIC 
BODIES. 

C 

PRMCOM 

RR 

DENSITY  RATIO 

L 

TRMBL 

RRFO 

LOCALLY  DEFINED  VARIABLE 

L 

TRMBL 

RRP 

LOCALLY  DEFINED  VARIABLE 

L 

TRMBL 

RRPD 

LOCALLY  DEFINED  VARIABLE 

L 

TRMBL 

RSIG(MK) 

RELATIVE  SIGNIFICANCE  OF  KINETIC  REACTION  IN  MASS  BALANCE. 

C 

KINCOM 

RSQA 

RMMGS*FFF/AA 

L 

MATER 

RT 

PERFECT  GAS  CONSTANT  *  R*  TIMES  TEMPERATURE*  T. 

L 

KINET 

Sll) 

STREAMWISE  COORDINATE  ALONG  BODY, 

C 

PRMCOM 

S(N) 

LARGEST  CONTRIBUTION  TO  TERM  IN  N  TH  COLUMN. 

L 

RERAY 

SALPH 

SIGNED  VALUE  OF  ALPH 

L 

TRMBL 

SB(J) 

ENTROPY. 

C 

EQTCOM 

SC  (I) 

REFERENCE  SCHMIDT  NUMBER*  SEE  EQ<46>  OF  NASA  CR-1062. 

C 

PRPCOM 

SCT 

TURBULENT  SCHMIDT  NUMBER 

C 

EPSCOM 

SD(N) 

RATIO  OF  RESIDUAL  TERM  IN  N  TH  COLUMN  TO  S<N>. 

L 

RERAY 

SDUMKL) 

VARIABLE  OF  INTEGRATION  IN  CALCULATION  OF  XI  IN  REFCON*  TEMC 
PORARY  STORAGE  AREA  IN  OTHER  ROUTINES. 

TEMCOM 

SDUM2(L) 

VARIABLE  OF  INTEGRATION  IN  CALCULATION  OF  FW  IN  REFCON*  TEMC 
PORARY  STORAGE  AREA  IN  OTHER  ROUTINES. 

TEMCOM 

SOY 

LOCALLY  DEFINED  VARIA8LE 

L 

TRMBL 

SHAPE 

DELST/THMOM.  SHAPE  FACTOR. 

C 

OUTCOM 

SHEAR 

WALL  SHEAR  GIVEN  BY  CAPC<1>/ALPH  *  VMUE<IS>  *  Uc<IS)/C09  * 
F ( 3* 1 ) /32» 1740 

c 

OUTCOM 

SHIP 

SAVED  VALUE  OF  INPUT  ENTHALPY. 

L 

EQUIL 
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SHMELT  ENTHALPY  OR  ENTROPY  OF  FUSION  OF  A  SPECIES  IF  TEMPERATURE  L  MATER 

EQUALS  FUSION  TEMPERATURE  OF  THAT  SPECIES. 

SIGMA  COLLISION  CROSS  SECTION  FOR  REFERENCE  SPECIES  C  EQTCOM 

SIP  ENTROPY  INPUT.  C  EQTCOM 

SLAM(K)  DEFINED  BY  EQ<83)  OF  NASA  CR-1064.  C  EQTCOM 

SM(J)  ENTROPY  OF  FUSION.  C  EQPCON1 

SMELT  SM(J)  IF  J  TH  SPECIES  IS  CHANGING  PHASE*  OTHERWISE  0.  C  EQTCOM 

SP ( N* I  * K )  ELEMENTAL  MASS  FRACTION  <N=1>  AND  ITS  DERIVATIVES  OF  ORDER  C  VARCOM 

N-l  WITH  RESPECT  TO  ETA, 

SPEASE  SAVED  VALUE  OF  PIEASE  L  EQUIL 


SPD(N)  D1  *  SP(N*I*K)  *  D2  *  HSP(I*N*K)  FOR  N=1  THROUGH  3*  D1  *  L  HISTXI 

SP(3*I-1*K)  *  02  *  HSP<I-1*3*K>  FOR  N=4. 

SPDUM(K)  DIMENSIONED  VARIABLE  USEO  IN  VARIOUS  SUBROUTINES  BUT  NOT  C  TEMCOM 
USED  FOR  TRANSMITTING  INFORMATION  BETWEEN  SUBROUTINES. 

SPE <K *L* 1 )  ELEMENTAL  MASS  FRACTION  AT  BOUNDARY  LAYER  EDGE.  C  EDGCOM 

SPLE(N*K)  ERROR  FOR  THE  TAYLOR  SERIES  EXPANSIONS  INVOLVING  SP(1*I*K)  C  ERRCOM 

AND  THEIR  DERIVATIVES, 

SPLEM(K)  MAXIMUM  VALUE  OF  SPLE<N.K),  C  ERRCOM 

SPNEW  VARIABLE  USED  TO  DENOTE  PRESENCE  OF  NEW  ELEMENT  IN  SYSTEM  L  RNLCER 

SPNEW  VARIABLE  USED  TO  DENOTE  PRESENCE  OF  NEW  ELEMENT  IN  SYSTEM  L  NONCER 

SPNLEM(K)  ERROR  FOR  THE  LINEARIZED  ELEMENTAL  CONSERVATION  EQUATIONS,  C  ERRCOM 

SPW ( K * L *  1 )  CONVERGED  VALUE  FOR  ELEMENTAL  MASS  FRACTION  OF  BOUNDARY  C  WALCOM 
LAYER  GAS  AT  THE  WALL. 


ss 

LOCALLY  DEFINED  VARIABLE 

L 

SLOPQ 

SSIP 

SAVED  VALUE  OF  INPUT  ENTROPY. 

L 

EQUIL 

sstag 

STAGNATION  ENTROPY  BASED  ON  1  ATM  PRESSURE. 

L 

STATE 

SSTAGA 

STAGNATION  ENTROPY  BASED  ON  ACTUAL  PRESSURE. 

L 

STATE 

STEF 

STEFAN-BOLTZMANN  constant. 

C 

CRBCOM 

STTEQV 

VARIABLE  EQUIVALENCED  TO  STTCOM  FOR  DUMPING  PURPOSES 

L 

DUMCOM 

SUMD 

RT*D  LOG  KP/D  LOG  T  OF  KINETIC  REACTION. 

L 

KINET 

SUMG 

OFF-DIAGONAL  COLUMN  SUMS  OF  GAMK  USED  TO  STRENGTHEN  DIAGO¬ 
NAL  DOMINANCE  OF  ARRAY. 

L 

EQUIL 

SUMK 


L  KINET 


SUML 

SUMN 

SUMP 

SUMR 

T 

T  ( I ) 

TAU(K»KK) 

TC(J) 

TCW 

TDSIP(N) 

TE(L) 
TEMEQV 
TF(  J) 
TFMAX 
TFZ 

THCOND 

THELEM(K) 

THENGY 

THF ( I »N) 

THMOM 

TIMD 

TIME(M) 

TION 
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LOG  KP  OF  KINETIC  REACTION. 

LOG  '.SUMN/P)  C 

SUMMATION  OF  PARTIAL  PRESSURES  FOR  ALL  GAS  PHASE  SPECIES.  C 

SUM  OF  PROOUCT  Y<N).  L 

SUM  OF  REACTANT  Y<N>.  L 

STATIC  TEMPERATURE  IN  DEG  K#  IDENTICAL  TO  Z+,  C 

STATIC  TEMPERATURE  IN  DEG  R»  IDENTICAL  TO  TT*.  C 

INTERMEDIATE  ARRAY  USED  IN  FORMING  UM.  L 

-D  LOG  KP  /  D  LOG  T  FOR  FORMATION  REACTION  OF  J  TH  SPECIES. C 

TC  EVALUATED  AT  THE  WALL  FOR  THE  (ISP)TH  ELEMENT.  C 

TEMPORARY  STORAGE  FOR  OSIP<L>  DURING  TAPE  FLIP-FLOP  FOR  C 
N  =  1  AND  2. 

TEMPERATURE  AT  BOUNDARY  LAYER  EDGE.  C 

VARIABLE  EQUIVALENCED  TO  TEMCOM  FOR  DUMPING  PURPOSES  L 

FAIL  TEMPERATURE  OF  SPECIES  J.  E 

MAXIMUM  FAIL  TEMPERATURE  OF  CANDIDATE  SURFACE  SPECIES.  L 

SURFACE  TEMPERATURE  TO  WHICH  CONVERGENCE  IS  TEMPORARILY  AT-C 
TEMPTED  DURING  ENERGY  BALANCE  PROBLEMS  USING  KR(9>=6. 
ENTHALPY  THICKNESS  L 


MASS  THICKNESSES  GIVEN  BY  DUZ(K) /DUM<K>  WHERE  DUZ(K)  IS  THEL 
SUMMATION  OVER  KK  OF  C89/ALPH  *  ( <F ( I >NETA >-FU » 1 )  >  * 
SP(1»NETA*KK)-XSP(S»KK) )/  WTM(KK)  *  CIJ(K.KK)  AND  DUM(K)  IS 
THE  SUMMATION  OVER  KK  OF  (SP< 1 »NETA»KK> -SP( 1 . 1 »KK) /WTM(KK) 


*  CIJ(K.KK) . 

ENERGY  THICKNESS  GIVEN  BY  C69/ALPH  *  ( (F ( 1 »NETA) -F ( 1 » 1 ) )  C 

*  G<1*NETA)-XG(5) )/(G< 1 # NET A ) -G ( 1  *  1 > ) . 

TEMPORARY  STORAGE  FOR  HFU*5)  DURING  TAPE  FLIP-FLOP  FOR  C 
N  s  1  AND  2. 

MOMENTUM  THICKNESS  GIVEN  BY  C89/ALPH  *  <  <FU*NETA)-F<1»  1>  >  C 
-XM(5) /ALPH) . 

REAL  ELAPSED  TIME  SINCE  BEGINNING  OF  SOLUTION  L 

TIME<OR  SUBCASES.  C 

TEMPERATURE  BELOW  WHICH  IONIZATION  WILL  BE  SUPPRESSED  L 


EQTCOM 

EQTCOM 

KINET 

KINET 

EQPCOM 

PRPCOM 

INPUT 

EQTCOM 

NONCOM 

EDGCOM 

DUMCOM 

EQPCOM 

INPUT 

BUMCOM 

OUTPUT 

OUTPUT 

OUTCOM 

OUTCOM 

ITERAT 

PRMCOM 

EQUIL 
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TK(K»N) 


GRAM  ATOMS  OF  ELEMENT  K  PER  UNIT  MASS  OF  COMPONENT  N 


C  EQPCOM 


TM  MAXIMUM  OR  MINIMUM  TEMPERATURE  IF  DELTA  T  IS  POSITIVE  OR  L  CRECT 

NEGATIVE »  RESPECTIVELY. 

TMAT(NN.N)  TEMPORARY  STORAGE  FOR  VMAT(NN)  DURING  TAPE  FLIP-FLOP  FOR  C 

N  =  1  AND  2, 

TMAX  MAXIMUM  TEMPERATURE  ALLOWED  FOR  CURRENT  ITERATION.  C  EQTCOM 

TMIN  MINIMUM  TEMPERATURE  ALLOWED  FOR  CURRENT  ITERATION.  C  EQTCOM 

TMU3  VN<J)  /  FF(J)  SUMMED  OVER  ALL  SPECIES  N*»  (=VMU3  *  VMU2  *  L  PROPS 

P) . 

TP  DERIVATIVE  OF  T  WITH  RESPECT  TO  ETA.  C  PRPCOM 

TPE(N)  TEMPORARY  STORAGE  FOR  PE<L*1>  DURING  TAPE  FLIP-FLOP  FOR  C 

N  =  1  AND  2. 

TQ(K.N)  GRAM  ATOMS  OF  BASE  SPECIES  K  PER  UNIT  MASS  OF  COMPONENT  N.  C  EQPCOM 


(SEE  W(N)  FOR  DEFINITION  OF  COMPONENTS). 

TRADS(N)  TEMPORARY  STORAGE  FOR  RADS (  L)  DURING  TAPE  FLIP-FLOP  FOR  C 

N  =  1  AND  2. 

TREF  GROUP  OF  TERMS  WHICH  APPEARS  IN  DERIVATIVES  OF  PI.  C  EPSCOM 

(REYNOLDS  NUMBER  ON  OELST) /C26/ ( 2. *CAPC ( I ) **2*YAP**2*PI ) . 

TRHOE(N)  TEMPORARY  STORAGE  FOR  RHO£(  L)  DURING  TAPE  FLIP-FLOP  FOR  C 

N  =  1  AND  2. 

TS  PHASE  CHANGE  TEMPERATURE.  L  INPUT 

TT ( I )  STATIC  TEMPERATURE  IN  DEG  R'  IDENTICAL  TO  T+,  C  PRPCOM 

TTE(N)  TEMPORARY  STORAGE  FOR  TE (  L)  DURING  TAPE  FLIP-FLOP  FOR  C 

N  =  1  AND  2. 

TTMAX  MAXIMUM  TEMPERATURE  ALLOWED  FOR  THIS  SOLUTION.  C  EQTCOM 

TTMIN  MINIMUM  TEMPERATURE  ALLOWED  FOR  THIS  SOLUTION,  C  EQTCOM 

TTVC  VARIABLE  T  USED  IN  TRANSVERSE  CURVATURE  CALCULATIONS  C  EDGCOM 


TU(J»N>  UPPER  TEMPERATURE  OF  TEMPERATURE  RANGE  FOR  INPUTTING  THERMOC  EQPCOM 

DYNAMIC  PROPERTY  DATA  FOR  SPECIES  J»  N=1  OR  2  FOR  LOWER  AND 
UPPER  TEMPERATURE  RANGES'  RESPECTIVELY, 

TUE(N)  TEMPORARY  STORAGE  FOR  UE<  L)  DURING  TAPE  FLIP-FLOP  FOR  N=  1C 

AND  2, 

TVCC(IS)  CONSTANT  USED  IN  TVC  CALCULATIONS  C  EDGCOM 

TVMUE(N)  TEMPORARY  STORAGE  FOR  VMUE<  L>  DURING  TAPE  FLIP-FLOP  FOR  C 

N  =  1  AND  2. 
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TW(L.l) 

CONVERGED  VALUE  OF  SURFACE  TEMPERATURE. 

C 

WALCOM 

TXKN> 

TEMPORARY  STORAGE  FOR  XI (  L)  DURING  TAPE  FLIP-FLOP  FOR  N= 
AND  2. 

1C 

UE<L) 

BOUNDARY-LAYER  EDGE  VELOCITY. 

C 

EDGCOM 

UEDGE 

PARAMETER  ENTERING  INTO  ENTROPY  LAYER  OPTION.  SEE  EG<68) 
NASA  CR-1062  <SET  EQUAL  TO  UNITY  IN  PRESENT  PROGRAM). 

OFC 

EDGCOM 

UGH 

NORMALIZING  FACTOR  IN  GAUSSIAN  ELIMINATION. 

L 

INPUT 

UKAP 

EDGE  VELOCITY  NORMALIZED  BY  REFERENCE  VELOCITY 

L 

NONCER 

UM(KrKK) 

MOLECULES  OF  BASE  SPECIES  K  IN  ELEMENT  KK. 

L 

INPUT 

UNIT(N) 

COMPLEX  FACTOR  HAVING  TO  DO  WITH  DAMPING  OF  KINETICALLY  CONC 
TROLLED  MASS  BALANCES. 

KINCOM 

UNIT(N) 

SMOOTHING  FACTOR  RELATED  TO  IMPOSING  RESIDUAL  ERROR  INTO 
REACTIVE  MASS  BALANCES  AS  A  RESULT  OF  BOUNDARY  LAYER  DAMP 

L 

•m 

KINET 

ING. 


V 

LOCALLY 

DEFINED 

VARIABLE 

L 

INPUT 

VA 

LOCALLY 

defined 

VARIABLE 

L 

CRECT 

VA 

LOCALLY 

DEFINED 

VARIABLE 

L 

INPUT 

VA 

LOCALLY 

defined 

VARIABLE 

L 

MATER 

VA 

LOCALLY 

defined 

VARIABLE 

L 

PROPS 

VA 

LOCALLY 

defined 

VARIABLE 

L 

THERM 

VAREQV 

VARIABLE  EQUIVALENCED  TO  VARCOM  FOR  DUMPING  PURPOSED 

L 

DUMCOM 

VB 

LOCALLY 

defined 

VARIABLES 

L 

INPUT 

VB 

LOCALLY 

defineo 

VARIABLES 

L 

PROPS 

VB 

LOCALLY 

defined 

VARIABLES 

L 

therm 

VC 

LOCALLY 

defined 

VARIABLES 

L 

INPUT 

VC 

LOCALLY 

defined 

VARIABLES 

L 

PROPS 

VC 

LOCALLY 

defined 

VARIABLES 

L 

THERM 

VD 

LOCALLY 

defined 

VARIABLES 

L 

INPUT 

VD 

LOCALLY 

defined 

VARIABLES 

L 

THERM 

VE 

LOCALLY 

defined 

VARIABLES 

L 

INPUT 

VE 

LOCALLY 

defined 

VARIABLES 

L 

THERM 
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VELOCITY 


L  EQUIL 


VEL 

VELSQ 

VINT 

VJKW(K) 

VK(K) 

VKAP 

VKl 

VK2 

VK3 

VLAM 

VLAM(J*K) 

VLNK( J) 

VLNKW 

VMACH 

VMACH 

VMAT(N) 

VMECH 

VMU(D 

VMUl 

VMU2 

VMU2 

VMU3 

VMU3P 

VMU4P 

VMU5 


SQUARE  OF  VELOCITY.  L  EQUIL 

P  *  10** (”6)  L  INPUT 

DIFFUSIVE  MASS  FLUX  OF  BASE  SPECIES  AT  THE  WALL*  CK6(K)/C3  C  FLXCOM 
EVALUATED  AT  THE  WALL  (IN  OUTPUT*  VJKW(K)  IS  MODIFIED  TO 
REPRESENT  DIFFUSIVE  MASS  FLUXES  OF  ELEMENTS  AT  THE  WALL( . 


SP( 1  *  I *K )  L  PROPS 

FLAG  FOR  BODY  SHAPE  (0  FOR  PLANAR*  1  FOR  AXISYMMETRIC ) .  C  PRMCOM 

l.OCALLY  DEFINED  VARIABLES  L  KINET 

LOCALLY  DEFINED  VARIABLES  L  KINET 

LOCALLY  DEFINEO  VARIABLES  L  KINET 


MIXTURE  THERMAL  CONDUCTIVITY  GIVEN  BY  RHO(I)  *  DBAR  *  VMU6  L  PROPS 
*  1.9869  /  <WM  *  VMUl) . 


LAMBDA.DEFINED  IN  EQ ( 83)  OF  NASA  CR-10&4.  E 

LOG  KP  FOR  FORMATION  REACTION  OF  J  TH  SPECIES.  C 

VLNK  EVALUATED  AT  THE  WALL  FOR  THE  (ISP)TH  ELEMENT.  C 

MACH  NUMBER  L 

MACH  NUMBER.  L 

SET  OF  VARIABLES  STARTING  WITH  Cl  TO  BE  STORED  ON  TAPE.  E 

SURFACE  MASS  LOSS  RATE  DUE  TO  LIQUID  LAYER  FLOW  L 

VISCOSITY  OF  MIXTURE*  COMPUTED  IN  SUBROUTINE  PROPS  AS  RHO  C 
(I)*DBAR*VMU5/VMU1, 

COEFFICIENT  MU1  DEFINED  IN  EQ(22>  OF  NASA  CR-1062.  L 

SAME  AS  VMU2  IN  PROPS.  L 

COEFFICIENT  MU2  DEFINED  IN  EQ(22)  OF  NASA  CR-1062.  L 

PROPERTY  OF  THE  GAS  MIXTURE  WHICH  REDUCES  TO  1/WM  FOR  EQUALC 
DIFFUSION  COEFFICIENTS*  SEE  EQC2R)  OF  NASA  CR-1062. 

DERIVATIVE  OF  VMU3  WITH  RESPECT  TO  ETA,  C 

DERIVATIVE  OF  VMU4  WITH  RESPECT  TO  ETA,  C 


CONTRIBUTION  TO  MIXTURE  VISCOSITY  GIVEN  BY  AMU5  *  RMMG/AA,  L 


NONCOM 

EQTCOM 

NONCOM 

EQUIL 

state 

HISCOM 

OUTPUT 

PRPCOM 

PROPS 

MATER 

PROPS 

PRPCOM 

PRPCOM 

PRPCOM 

PROPS 
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* 


VMU6 

VMU12 

VMUA 

VMUB 

VMUC 

VMUD 

VMUE(L) 

VMW(I) 

VMWE 

VN(J) 

VNU(J»K> 

WOL 
W  (N) 

WALEQV 

WALLJ(K) 

WALLS 

WALLOON) 

WAT(K) 

WD2 

WD4 

WD5 

WD7 

WD6 

WDOT 


CONTRIBUTION  TO  MIXTURE  THERMAL  CONDUCTIVITY  GIVEN  BY  ( PMU6L 


♦  CPTIL/1. 9869-2. 5  *  TMU3)  /  P. 

PRODUCT  OF  THE  TWO  COEFFICIENTS  MUl  AND  MU2  DEFINED  IN  EQ  C 
(22)  OF  NASA  CR-1062. 

CONSTANT  IN  THE  VISCOSITY  RELATION  MU=(VMUA*T**VMUB)/(VMUC - C 
T+VMUD).  USED  IN  KR(7>=  1  OPTION  ONLY. 

CONSTANT  IN  THE  VISCOSITY  RELATION  DEFINED  UNDER  VMUA.  C 

CONSTANT  IN  THE  VISCOSITY  RELATION  DEFINED  UNDER  VMUA.  C 

CONSTANT  IN  THE  VISCOSITY  RELATION  DEFINED  UNDER  VMUA.  C 

VISCOSITY  AT  BOUNDARY  LAYER  EDGE.  C 

MOLECULAR  WEIGHT  OF  THE  MIXTURE.  C 

MOLECULAR  WEIGHT  OF  GAS  AT  BOUNDARY  LAYER  EDGE.  C 

PARTIAL  PRESSURE.  C 

STOICHIOMETRIC  COEFFICIENT  CN  K  TH  BASE  SPECIES  IN  FORMA-  C 
TION  OF  J  TH  SPECIES. 

LOCALLY  DEFINED  VARIABLE  L 

COMPONENT  MASS  FLUX  AT  WALL.  W (1)  IS  EDGE  GAS.  W(2>  IS  PY-  C 
ROLYSIS  GAS.  W(3)  IS  CHAR. 

VARIABLE  EQUIVALENCED  TO  WALCOM  FOR  DUMPING  PURPOSES  L 


NORMALIZED  DIFFUSIVE  MASS  FLUX  A!  WALL  (DEFINED  BY  EQ(48)  C 
OF  NASA  CR-1062).  CK6(K)  EVALUATED  AT  THE  WALL. 

NORMALIZED  OIFFUSIVE  HEAT  FLUX  AT  THE  WALL  (DEFINED  BY  EQ  C 


(50)  OF  NASA  CR-1062).  C32  EVALUATED  AT  THE  WALL. 

GLOBAL  SET  OF  WALLQ  AND  WALLJ.  E 

ATOMIC  WEIGHT.  C 

1.2  *  AISTAR  /  PMU1  L 

0.284  *  WDZ  L 

0.32  *  AISTAR  /  PMU1  L 

WOZ/PMU1  -  WD2  L 

WD4/PMU1-WD5  L 

ABLATION  RATE  IN  THE  CONVERGED  SOLUTION  OF  MATERIAL  CON-  C 
SIDEREO  UNDER  KR(9)=  3  THROUGH  6. 


PROPS 

PRPCOM 

STTCOM 

STTCOM 

STTCOM 

STTCOM 

EDGCOM 

PRPCOM 

EDGCOM 

EQPCOM 

EQPCOM 

REFCON 

BLQCOM 

DUMCOM 

FLXCOM 

FLXCOM 

FLXCOM 

EQPCOM 

PROPS 

PROPS 

PROPS 

PROPS 

PROPS 

BUMCOM 
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WDZ 

WM 

WS 

WSUM 

WT 

WTG 

WTL 

WTM(J) 

X  (N) 

XI 
XD 

XG(N) 

XI  (L) 

XICON(L) 

XJ 
XK 
XKP 
XM  ( N ) 

XOT 

XOTT 

XS 

XSP<N»K) 

XT 


CONSTANT  1.385  WHICH  ENTERS  INTO  CALCULATION  OF  MIXTURE  L  PROPS 
TRANSPORT  PROPERTIES. 

MOLECULAR  WEIGHT  OF  MIXTURE.  C  EQPCOM 

SUM  OF  PYROLYSIS  AND  CHAR  MASS  RATES.  L  MATER 

W(l)+W(2)+W(3)  L  NONCER 

MOLECULAR  WEIGHT  AS  SUMMEO.  L  INPUT 

PRESSURE  *  GAS  MOLECULAR  WEIGHT.  L  MATER 

SUMMATION  OF  VN(J)  *  WTM(J)  FOR  ALL  CONDENSED  SPECIES.  L  MATER 

MOLECULAR  WEIGHT  OF  SPECIES  J.  C  EQPCOM 

CORRECTIONS  OF  NONLINEAR  VARIABLES  IN  CHEMISTRY  SOLUTION.  E  EQTCOM 

DAMPED  VALUE  OF  DELTA  LN  T.  L  CRECT 

LOCALLY  DEFINED  VARIABLE  L  SLOPQ 

DEFINED  BY  EQ<36)  OF  NASA  CR-1062  EVALUATED  FOR  Ps6(lil)>  C  COECON 

Ns  1  TO  4.  XG ( 5)  IS  THE  INTEGRAL  OF  (F(2*I>*G(1»I) *DETA) 

GIVEN  BY  EQ  (85). 

TRANSFORMED  STREAMWISE  COORDINATE  DEFINED  BY  EQS(31>  AND  C  HISCOM 
(33)  OF  NASA  CR-1062. 


INTEGRAND  IN  CALCULATION  OF  XI  IN  REFCON.  TEMPORARY  STORAGEC  TEMCOM 
AREA  IN  OTHER  ROUTINES. 


LOCALLY  DEFINED  VARIABLE  L  MATS1 

LOCALLY  DEFINED  VARIABLE  L  MAT51 

LOCALLY  DEFINED  VARIABLE  L  MATS1 

DEFINED  BY  EQ(86)  OF  NASA  CR-1062  EVALUATED  FOR  P=F(2»I)»  C  COECON 
Ns  1  TO  4 f  XM(5)  IS  THE  INTEGRAL  OF  (F(2»I)*F(2»I) *DETA) 

GIVEN  BY  EQ(85). 

LOCALLY  DEFINED  VARIABLE  L  SLOPQ 

LOCALLY  DEFINED  VARIABLE  L  SLOPQ 

LOCALLY  DEFINED  VARIABLE  L  MATS1 


DEFINED  BY  EQ( 86)  OF  NASA  CR-1062  EVALUATED  FOR  P=SP(1»I»K>C  COECON 
NSl  TO  4.  XSP(5»K)  IS  THE  INTEGRAL  OF  (F (2* I ) *SP( 1  *  I »K ) 

*DETA)  GIVEN  BY  EQ(85). 


LOCALLY  DEFINED  VARIABLE 


L  ABMAX 
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XTO 
XTT 
Y  ( I ) 
Y(J) 

YAP 

YC 

YDI 

YDIQ 

YDQD 

YDS 

YINT 

YS 

YW(K) 

Z 

ZG(N.I) 

ZK(K) 


ZKP(K) 
ZM(N» I ) 

ZSP<N*I*K) 


LOCALLY  DEFINED  VARIABLE  L  SLOPQ 

LOCALLY  OEFINED  VARIABLE  L  SLOPQ 

ACTUAL  DISTANCE  FROM  BODY  MEASURED  NORMAL  TO  SURFACE.  C  OUTCOM 

NATURAL  LOG  OF  PARTIAL  PRESSURE  <=0  FOR  PRESENT  CONDENSED  C  EQPCOM 
SPECIES)*  IDENTICAL  TO  YYY<J>+. 

CONSTANT  IN  MIXING  LENGTH  EQUATION.  C  EPSCOM 

INITIAL  VALUE  OF  Y ( J) .  L  INPUT 

locally  DEFINED  VARIABLE  L  TRMBL 

LOCALLY  DEFINED  VARIABLE  L  TRMBL 

LOCALLY  DEFINED  VARIABLE  L  TRMBL 

LOCALLY  DEFINED  VARIABLE  L  TRMBL 

ALOG(VINT)  L  INPUT 

LOCALLY  DEFINED  VARIABLE  L  SLOPQ 

VALUE  OF  YYY(J)  AT  WALL  (SAVED).  C  EQPCOM 

STATIC  TEMPERATURE  IN  DEG  K*  IDENTICAL  TO  T*.  C  EQPCOM 

DEFINED  BY  EQ(94)  OF  NASA  CR-1062  EVALUATED  FOR  P=G(1*I).  C  HISCOM 

N  =  1  TO  4. 

QUANTITY  FOR  ELEMENT  K  WHICH  IS  INTRODUCED  AS  A  RESULT  OF  C  PRPCOM 
THE  APPROXIMATION  FOR  BINARY  DIFFUSION  COEFFICIENTS  AND 


REDUCES  TO  SP(1*I.K)  FOR  EQUAL  DIFFUSION  COEFFICIENTS  (SEE 
EQ(25)  OF  NASA  CR-1062). 

DERIVATIVE  OF  ZK  WITH  RESPECT  TO  ETA.  C  PRPCOM 

DEFINED  BY  EQ(94)  OF  NASA  CR-1062  EVALUATED  FOR  P=F(2.D*  C  HISCOM 
N  =  1  TO  4, 

DEFINED  BY  EQ(94)  OF  NASA  CR-1062  EVALUATED  FOR  P=SP(1*I*K)C  HISCOM 
N  =  1  TO  4. 
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APPENDIX  I 

WALL  BOUNDARY  CONDITIONS 

Wall  boundary  conditions  for  the  BLIMP  program  have  been  generalized  to 
include  surface  thermochemistry  considerations  since  a  large  proportion  of  the 
problems  on  which  BLIMP  is  used  include  ablating  surfaces.  These  wall  boundary 
conditions  are  flagged  by  various  combinations  of  the  KR(9)  and  KR(ll)  flags. 

The  purpose  of  this  appendix  is  to  explain  the  types  of  options  that  are  avail¬ 
able  . 

For  typical  engineering  problems ,  there  are  several  sets  of  boundary  con¬ 
ditions  which  are  used  most  often.  These  are  typically  combinations  of  the  fol¬ 
lowing  conditions. 

o  Chemical  equilibrium  between  the  gaseous  boundary  layer  and  the 
surface  material 

o  Assigned  surface  temperature 

o  Assigned  surface  mass  flux 

o  Energy  balance  between  the  surface  material  and  the  gaseous  boundary 
layer  assuming  steady  state  ablation. 

Of  course,  these  four  conditions  cannot  be  used  in  all  possible  combinations  and 
do  not  constitute  a  complete  list  Five  combinations  which  can  be  used  in  the 
BLIMP  program  and  the  control  card  punches  necessary  to  flag  them  are  summarized 
below.  A  more  general  discussion  is  contained  in  reference  1.  The  reader  should 
also  note  that  a  procedure  for  varying  KR(9)  as  a  function  of  body  station  (de¬ 
noted  KR9 (  )  in  this  manual)  is  described  under  card  3,  field  2  of  group  3.  This 
procedure  allows  the  user  to  change  the  type  of  boundary  conditions  at  various 
points  along  the  body. 

a.  Assigned  temperature  and  mass  flux 

Use  KR{9)  =  2,  KR(ll)  =  0.  This  combination  is  often  used  when  ex¬ 
perimental  data  or  data  from  separate  analyses  are  available  to  de¬ 
scribe  T  and  MOOT  as  functions  of  streamwise  location.  No  sur¬ 
face  material-boundary  layer  gas  interaction  chemistry  is  considered 
in  the  resulting  solutions. 

b.  Assigned  temperature  and  surface  equilibrium 

Use  KR (9 )  =  2,  KR(ll)  =  0.  This  '  ption  is  obtained  when  the  program 
compares  the  assigned  temperature  to  the  ablation  temperature 
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(group  11,  card  1)  for  the  surface  material  in  question.  If  the 
assigned  temperature  is  larger,  a  surface  equilibrium  analysis  is 
performed.  The  assigned  MDOT  should  be  zero. 

With  the  surface  equilibrium  chemistry  package  called  in,  the  program 
automatically  chooses  the  correct  surface  material  and  calculates  the 
correct  mass  loss  rate  at  the  assigned  temperature.  Surface  kinetics 
and  fail  temperatures  (e.g.,  for  a  melting  material)  may  also  be  used 
with  this  option. 

c.  Assigned  mass  flux  and  surface  equilibrium 

Use  KR (9 )  =  2,  KR (11)  =  2.  This  option  also  uses  the  surface  equilib¬ 
rium  chemistry  package  mentioned  in  (b)  above.  The  program  will  auto¬ 
matically  choose  the  correct  surface  material  and  temperature  to  coin¬ 
cide  with  the  assigned  mass  flux.  Kinetics  and  fail  temperatures  can 
be  used. 

d.  Steady  state  energy  balance  and  surface  equilibrium 

Use  KR (9)  =  4,  KR(ll)  =  0.  Whenever  KR ( 9 )  is  greater  than  or  equal 
to  3,  a  special  surface  chemistry  package  based  on  vapor  pressures 
is  called  (see  reference  3) .  The  special  chemistry  package  does  not 
allow  fail  temperatures  or  kinetic  control  of  reactions,  and  the  sur¬ 
face  material  must  be  specified  in  advance.  Within  these  limitations, 
the  program  will  calculate  the  correct  mass  loss  rate  of  specified 
surface  material  necessary  to  satisfy  the  steady  state  energy  balance 
equation . 

In  the  steady  state  energy  balance,  the  pyrolysis  front  and  the  ex¬ 
posed  material  surface  are  assumed  to  be  receding  at  identical  rates. 
This  special  situation  eliminates  the  need  for  an  in-depth  conduction 
analysis  (see  references  9  and  10)  and  allows  ablation  calculations 
to  be  performed  as  a  subroutine  to  the  boundary  layer  analysis .  The 
steady  state  assumption  is  good  for  large  ablation  rates  or  small 
thermal  diffusivity  of  the  ablation  material  (reference  11) .  For 
charring  materials  it  is  also  necessary  that  the  ratio  <v  pyrolysis 
gas  to  char  mass  removal  rate  approach  the  steady  state  ratio,  which 
can  be  found  from  the  virgin  material  composition. 

e.  Assigned  flux  of  transpirant  with  steady  state  energy  balance 

Use  KR (9)  =  2,  KR{11)  =  0,  and  assign  KR9 (  )  =  4,  as  required.  This 
option  allows  an  assigned  flux  of  transpiring  gas  into  the  boundary 
layer  through  an  ablating  surface  while  maintaining  surface  equilib¬ 
rium.  The  local  .surface  condition  is  determined  by  the  steady  state 
energy  balance.  The  flux  of  transpirant  gas  is  input  on  card  set  11 
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of  group  16  as  a  pyrolysis  gas.  The  fields  for  boundary  layer  edge 
gas  and  char  fluxes  must  also  be  input  in  accordance  with  KR(9)  =  2 
but  blank  cards  may  be  used.  Card  set  3  of  group  16  for  assigned 
wall  temperature  is  also  required  in  accordance  with  KR(ll)  =  0  but 
blank  fields  may  be  used.  The  boundary  layer  calculations  use  the 
KR9 (  )  =  4  value,  the  KR(9)  =  2  option  affecting  only  the  reading  of 
the  transpiration  flux.  The  heat  of  formation  of  the  transpirant  gas 
must  be  input  in  field  3  of  card  1  of  group  6. 

The  above  combinations  of  boundary  conditions  are  used  in  nearly  all  ablat¬ 
ing  and  nonablating  boundary  layer  flow  analyses,  however  other  combinations  are 
possible.  For  example,  for  program  checkout  purposes  it  is  sometimes  useful  to 
specify  eleme:  tal  mass  fraction  together  with  stream  function  or  mass  fluxes  at 
the  wall  (KR (9)  =  0  or  1) .  This  option  is  meaningless  for  unequal  diffusion 
problems  since  the  elemental  mass  fractions  at  the  wall  are  not  known  in  advance. 
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APPENDIX  II 
Table  I 

FORCE  CONSTANTS  FROM  REFERENCE  6 


Molecule 

e 

f/h 

A1 

2.655 

B9 

A1C1 

S.  57# 

A1C1, 

5.127 

K9 

A1F 

5.14# 

556 

All'S 

4.194 

1446 

Air 

5.569 

2482 

AlO 

5.204 

542 

A1S 

5.750 

1526 

Alj 

2.940 

2750 

Air 

5.711 

78.6 

Ar 

5.542 

93.5 

A»H, 

4.145 

259.8 

B  5 

2.245 

3531 

BBr, 

5.459 

430 

BC1 

5.51# 

1026 

SCI  2 

4. ft* 

482 

BC1, 

5.197 

357.7 

w  3 

412 

BFo 

1  -U 

599 

”1 

1 

166.3 

BI, 

5.904 

570.2 

BO 

2.944 

596 

•B(OCHj)j 

5.50* 

596.7 

2.490 

5531 

BjHe 

4.121 

213.2 

Bjt>S 

4.154 

9092 

Be 

2.614 

5403 

BeBr2 

4.994 

936 

BeCl 

3.M4 

1067 

BeClj 

4.1*f 

536 

BeF 

5.194 

437 

BeP2 

5.469 

1266 

Bei2 

4.944 

1019 

Be2 

9.491 

5403 

Br 

5.479 

236.6 

BrB 

5.494 

239 

BrP, 

4.544 

481.7 

BrO 

5. #49 

233 

Br3 

4.994 

507.9 

c  * 

5.544 

30.6 

curl’s 

1.01 

255 

CBr* 

l.lt 

442 

CC1 

»,04* 

157.8 

CCIBj 

4,94 

188 

cci2 

4.694 

215 

CCloP* 

5.95 

253 

CClj 

5.590 

260 

•CCljF 

4.44 

554  ’ 

CC14 

5  •  947 

3J2.7 

CP 

5.454 

94.2 

CP2 

5.977 

IOC 

Cl's 

4.590 

121 

C% 

4.642 

134.0 

CH 

5.570 

68.6 

CHBrClP 

5.15 

545 

CKBrClj 

5.25 

427 

chbtj 

5.55 

559 

CHCIPo 

4.64 

261 

CKCla 

5.549 

340.2 

CKPj 

4.55 

240 

ClUBrCl 

4.99 

410 

CH2C1P 

4.44 

310 

CH*C1* 

4.994 

556.3 

4.04 

310 

ch?i2 

5.11 

650 

CHjBt 

4.114 

449.2 

CHjCl 

4.119 

350 

CMjr 

5.75 

335 

CHjI 

4.95 

619 

CHjOH 

J.IH 

441.4 

Molecule 

0 

•A 

CH* 

5. 758 

148.6 

CH 

5.156 

75.0 

CO 

3.490 

91.7 

COS 

4.150 

336.0 

C02 

5.941 

195.2 

CP 

4.400 

227 

CS 

4.216 

199.4 

CSj, 

4.415 

467 

c2 

5.913 

76.8 

C2H2  . 

4.055 

231.8 

CjH, 

4.163 

224.7 

CjH* 

4.445 

215.7 

C^Cl 

4.694 

300 

c2h5oh 

4.S30 

362.6 

C?H? 

4.341 

548.6 

CHjOCHj 

4.307 

395.0 

ch2chch3 

4.471 

298.9 

CHjCCH 

4.741 

251.8 

cyclo-CjHg 

4.107 

246.9 

CsHe 

5.114 

237.1 

n-C3H70H 

4.549 

576.7 

CH^COCH^ 

4.600 

560.2 

CHjCOOCHj 

n-C*Hio 

'1*1 

469.8 

531.4 

liO>C4H10 

Aalm 

350.1 

CpHr.OCjH^ 

515.8 

C^COOC^s 

521.3 

n-Cc;Hj9 

6.744 

541.1 

C(CHj)4 

4.444 

193.4 

c6Ks 

S.549 

412.3 

e«H12 

••1.8 • 

*97.1 

H^6h14 

5.949 

999.3 

Cd 

1127 

Cl 

130.8 

C1CH 

558.7 

C1P 

tHIil 

903.4 

C1.J 

PT!b 

335.7 

CIO 

3.449 

184 

Cl2 

4.117 

516.0 

r 

t.944^ 

112.6 

PCN 

5.179 

168 

*2 

5.547 

112.6 

H  •• 

9.70# 

37.0 

HBr 

5.5*5 

449 

HCH 

3.150 

549.1 

KC1 

5. 539 

544.7 

KF 

9.144 

330 

HZ 

4.211 

168.7 

HS 

3.671 

86.4 

h2 

2.627 

59.7 

h2o 

2.641 

609.1 

RjOj 

4.194 

249.3 

5.625 

301.1 

He 

£1 

10.22 

H# 

.11 

750 

Wrz 

.■H 

466.2 

H*C12 

4.550 

730 

W2 

5.425 

115.6 

I 

{SHm 

*10.7 

ZC1 

437.3 

I2 

5.160 

474.2 

Kr 

5.681 

176.9 

LI 

2.630 

1419 

LlBr 

3.744 

1415 

L1CN 

.  77*1 

569.1 

L1C1 

l  ?•*  ■ 

1919 

LIP 

’  j|l 

2305 

LI  I 

[  i  > 

1726 

L10 

‘  i 

♦50 

Ll2 

331 

1499 

Moleeule 

B 

«A 

li2o 

4.541  . 

1967 

*4 

rxr* 

1414 

H«C) 

3.739 

714 

*4C12 

liljl 

1448 

W 

>14  *  1 » 

444 

*6P* 

•444 

**2 

1114 

X 

71.4 

HP, 

4.134 

173 

NH5 

5. Sit 

65.3 

KH, 

2.  »00 

648.3 

HO3 

3.499 

116.7 

N0C1 

4.119 

145.3 

"i 

3.794 

71.4 

KjO 

3.691 

912.4 

Ht 

3.467 

1375 

HtRr 

4.994 

IMS 

HtCN 

4.596 

HtCl 

4.166 

1649 

H*P 

3.714 

ms 

HtX 

4.444 

1444 

HtO 

S.llt 

413 

HtOH 

3.444 

1449 

4.144 

1476 

HtoO 

4.444 

1497 

Me 

I.N., 

49.4 

0 

9.444 

144.7 

OP 

3.419 

104.8 

0  r2 

3.474 

161 

OH 

3.147 

19.8 

'  ®2 

9.447  ’ 

141.7 

f 

4.114 

444 

TCI 

4.444  » 

444 

PC13 

5.440  ; 

ill 

TF  3 

4.144  | 

•11 

w* 

4.140  ; 

4M.3 

m; 

9.941 

■1.5 

nr 

4.446 

au 

70 

4.177  , 

4M 

73 

4.701 

744 

r,  - 

4.447  j 

444 

r\ 

3.444  * 

111 

3 

3.444 

447 

3.141 

444.1 

30* 

3.»4t  i 

Ml. 

SOj 

4.114 

■1.4 

h 

4.119  I 

MT 

y* 

4.T44  ! 

■4.4 

2.410 

3446 

siel 

3.744 

440 

SIC!* 

5.t»T 

944.2 

SIP 

3.114! 

444 

31PC1, 

3.640 

444 

sip^ci. 

5.970 

B3B 

31P.C1 

4.976 

WSM 

SIP* 

4.640 

1MA1 

31Hj 

4.444 

SfT.6 

310 

3.174 

449 

310j 

3.704 

•444 

313 

3.400 

14M 

Slj 

3.910 

94W 

SnJfcr. 

4.144 

Ml. 7 

SnCl* 

1.949 

*04 

OP* 

3.447 

•M.6 

U 

4.047 

941.0 

Zn 

2.464 

14W 

At 

3.404 

119.9 

He 

2.404 

14.22 

Kr 

3.640 

144.7 

He 

9.744 

40.9 

Xe 

4.641 
■  ■■■  4 

944.9 
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